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TIREZ PLUS 
DE VOTRE TRS-80 


Mogazine, p8 + Trucs à brac, pl10e Coup d œil 
dans le TRS Couleur, p IS < Les compati- A 
bles, p 14e Deux programmes à l'essai, su 
A" p 15e La trace pas à pas en BASIC, p 17 e 
= Donnez la parole à votre ordinateur, p 19 
e Lalocation de skis, p20 . La fusée pédagogique, 
p 22 e Jeu: les cinqdés, ES p 25 e Les fichiers 
sur poquette ,p2/e Moi j utilise CP/M, 
p 29 e Réalisez un affichage plus agréable, al fl 
<= 


| p 32e Traitement de textes : maintenant, ça 


marche! p34e Améliorez votre vitesse de frappe, 


|b 42 e Un super-driver pour votre imprimante, 


D 43 e Lassemblieur, =%,. P 49 e Quadru- 
mem Del CC & pacité de votre 
= modlel.pl a UCSDetP-code, p 








53 e Gérez vos données, p 58 - DOS de À àZ, p6ù 








EN UN VÉRITABLE S'SEUTELE GESTION 


CORVUS : Toute une gamme de systèmes utilisant 

les disques à technologie WINCHESTER compatibles 

avec votre micro-ordinateur : APPLE Il, LSI 11, TRS _ modèle Te 
BUS S1100, DEC VT/18, 

H/P 125, COMMODORE, ZENITH H/89. 
D'une capacité de stockage de 5, 10, 20, 20% 
et 80 Méga-octets. 

_ CORVUS c'est aussi : £ 
CONSTELLATION : Multiplexeur intellige 
de partager les ressources de la mém 
et des périphériques entre pee 
(o[S nico dineleur 
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Editorial 


Il semble traditionnel, dans l'éditorial du premier numéro d'un 
nouvelle revue, d'expliquer les raisons géniales qui ont déclench 
la création de celle-ci. Sacrifions donc à la tradition : nous 
voulions un journal que nous pourrions lire pour y trouver des 
tas d'idées et d'astuces pour nos matériels à nous; les revues 
françaises existantes, malgré leur qualité, sont le plus souvent 
trop générales pour satisfaire nos besoins spécifiques; alors, 
comme le journal de nos rêves n'existait pas, il ne nous restait 
plus qu'à le créer ! 


\ oO 


Bon, voilà, la tradition est respectée. Passons à des choses 
plus sérieuses : nous ne sommes pas peu fiers de ce premier numé-— 
ro, et nous pensons qu'il répond à vos attentes. Mais loin de 
nous l'idée de glisser dans l'autosatisfaction béate : nous savons 
bien que ce numéro n'est pas parfait, que nous avons commis quel- 
ques (?) erreurs et que certains choix dans la présentation ou 
le style du journal vous paraîtront contestables. 


Ce journal se veut critique, il est donc logique que de même 
nous attendions avec impatience vos critiques et vos remarques, 
qu'elles soient favorables (cela fait toujours plaisir) ou défa- 
vorables : dans les deux cas, nous les pensons utiles et donc 
positives. Alors n'hésitez pas : prenez votre plume, encouragez 
vos amis à faire de même, et faites-nous part de vos réactions. 


Nous voulons que ce journal soit le vôtre : vos commentaires 
nous aideront à l'améliorer; les articles, les programmes et 
les ‘trucs que vous nous enverrez intéresseront certainement 
les autres lecteurs; l'écho que vous ferez à cette revue auprès 
de vos amis ou relations diverses lui permettra d'exister et 
de se développer. Bref, il faut vous mettre au travail, le numéro 
deux est déjà commencé, ne perdez pas de temps... 
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TRACE N° 1 — Janvier 82 — 3 





Video Genie System 


RE 
EG 3008 — 16 K RAM Utilisateur 
| — 14 K ROM BASIC Microsoft 




























LEVEL II 
* — Microprocesseur Z 80 
SON - MINUSCULES - BASIC (R)  : mue vidéo (Soie UHF 625 
* Extension BASIC microsoft LEVEL 11 compatible TANDY. SRE QWERTY 
PET TTL TITI LLLRLLENNNTEER SL LES NUE — Magnétophone à cassette intégré au 


boîtier, pas de réglage de volume 
— Prise DIN pour deuxième magné- 
tophone 

— Ecran 16 lignes 32 ou 64 caractères 
— Graphismes 128 x 48 

— Cassettes et programmes compatibles 
avec TRS 80* Level | 

— Alimentation intégrée 110 / 220 / 
240 V 50 Hz 

— Branchement direct sur téléviseur ou 
moniteur vidéo 

— Livré avec: cordons, 1 cassette 
démonstration. Moniteur en option 

— Bus compatible TRS 80* 

— Vu-mètre, réglage niveau de lecture 





NOUVEAU: BASIC avec renumérotation - Instruction Hard Copy - Moniteur en language machine - Nouvelle 
routine clavier avec minuscules - Répétition curseur clignotant - Sortie son avec haut-parleur intégré. 





disiiititéistiiettt NRRETUPENENES TETE. 


EG 3008 





— Mêmes caractéristiques + clavier 
numérique minuscules + software RS 
232 C + clavier fonction. Sortie vidéo 
seulement 


* TRS 80 marque déposée 
«Tandy Radio Shack». 












OPTIONS contrôleur de disques Floppy, interface EG 3021 


À ete parallèle Centronics, mémoire RAM 
SR te ne 16 K (32 K). En option, interface Doubleur de densité 211 K par disque 

48 - 80 - 96 136 k © RS 232 C, Bus S 100. Fourni avec câble 

TRE coonnes de raccordement à EG 3003 ou 











— Imprimante TONO HC 800, 80 - 132 EG 400 
colonnes 120 CPS Ee 
— Boîte d'expansion EG 3014 Lecteur de disques 5” 1/4 MPI 40 pistes 
_ Moniteur professionnel écran vert EG 3016 100 K (211 K). 
TONO CRT 120 G 
Interface de raccordement pour EG 101 
EG 3014 - 16 (32) imprimante type Centronics (TONO 
Boîte d'expansion comprennant : HC 800) avec câbles. Moniteur 12 pouces vert. 
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S GENERALE ELECTRONIQUE SERVICES 


76, AVENUE LEDRU ROLLIN, 75012 PARIS 
TÉL. : 345-25-92 — TÉLEX: 600 767 F CCI MELUN ATT. GES 


Caltepe 





Index des 
mots-clés 





La liste des mots-clés figurant ci-dessous est des- 
tinée à être exploitée par le programme de gestion 
des articles, décrit aux pages 58 à 64 du présent 
numéro. Le format est le suivant 


Nom abrégé de l'article, numéro de page : 1 à 4 
mots-clés. 


En prenant l'habitude d'entrer cette liste à 

chaque numéro de TRACE, vous constituerez ainsi une 
petite base de données vous permettant de trouver 
plus efficacement et plus rapidement l'article que 
vous cherchez. Bien entendu, cette liste est donnée 
à titre indicatif, et vous pourrez toujours en mo- 
difier ou en compléter le contenu, afin de l'adapter 
à vos besoins ; mais avant toute chose, vous devez 
vous imposer une certaine normalisation des mots- 
clés (en principe, ils sont limités à 12 caractères) 
PROGRAMME par exemple, indiquera toujours qu'un 
listing de programme est donné dans l'article. 

Pour cela aussi, faites-nous part de vos idées ! 


PASCAL EN MINUSCULES, 10 : 
ANOMALIE INSTR, 10 : INSTR, VERSAFILE, NEWDOS80 
41 PISTES, 10 : DISQUETTE, PISTE, NEWDOS80, LDOS 
SIGNAL SONORE, 11 : SON,RELAIS, ALARME, MODELE 
ATTENTION AU VARPTR, 11 : VARPTR, BASIC 

GEL DE L'AFFICHAGE, 12 : HOLD, AFFICHAGE, MODELE 1 
COMPARAISON TRS, 12 : PRIX, MEMOIRE, DISQUETTE 
TRS COULEUR, 13 : COULEUR, 6809,MATERIEL 
COMPATIBLES, 14 : VIDEO GENIE, LNW80, MATERIEL 
ESSAI JEUX, 15 : ESSAI, JEU, LOGICIEL 

TRACE PAS A PAS EN BASIC, 17 : PROGRAMME, BASIC 
UTILITAIRE 

VOTRE ORDINATEUR PARLE, 19 
LOCATION DE SKIS, 20 : 
FUSEE PEDAGOGIQUE, 22 : 
PROGRAMME 

JEU 5 DES, 25 : JEU, BASIC, PROGRAMME 

FICHIER SUR POQUETTE, 27 : POQUETTE, FICHIER BASIC, 
PROGRAMME 

J'UTILISE CP/M, 29 : CP/M,MODELE 2,D0S 
AMELIORATION AFFICHAGE, 32 : BRICOLAGE, AFFICHAGE, 
MODELE 1 

TRAITEMENT DE TEXTES, 34 : TDT, SCRIPSIT, IMPRIMANTE 
AMELIORER VITESSE FRAPPE, 42 : BASIC, PROGRAMME, 
CLAVIER 

SUPER DRIVER IMPRIMANTE, 43 : 
ASSEMBLEUR , PROGRAMME 

PREMIER PAS EN ASSEMBLEUR, 49 : INITIATION, ASSEMBLEUR 
ORCHESTRA 80,50 : ESSAI, MATERIEL, MUSIQUE, SON 

MAPPER 2 OMIKRON, 51 : DISQUETTE, EXTENSION, ESSAI 
PASCAL UCSD ET P-CODE, 53 : PASCAL, LANGACE 

GESTION ARTICLES, 58 : BASIC, PROGRAMME, BASE DONNEES 
FICHE DOS A à Z, 65 : FICHE, DOS 


PASCAL, UCSD, PATCH, MODELE 1 


: ESSAI, VOCAL, LOGICIEL 
APPLICATION,MODELE 1,PROF 
ENSEIGNEMENT , BASIC, JEU, 


DRIVER, IMPRIMANTE, 





TRACE vous four- 
nit quatre fois par 
an des program- 
mes, des astuces 
de nouvelles idées 
d'applications. 
TRACE est indé- 
pendant de tout 
constructeur, et 


vous tient au courant de toutes les nou- 
veautés dans les domaines des logiciels, 
des matériels et des périphériques, qu'elle 
qu'en soit la source. TRACE teste pour 
vous, en toute objectivité et indépendance, 
les produits matériels ou logiciels qui vous 
intéressent. TRACE n’est pas en vente chez 
les marchands de journaux. Pour recevoir le 


numéro 2 où pour vous abonner en profitant 


de notre tarif de lancement, retournez le 
bon de commande ci-dessous. 





à retourner à TRACE, 8, rue St-Marc, 
75002 PARIS 





| Profession : 


| Adresse : 
| Code postal : 
| Pays : 


| © Je désire recevoir le 

| numéro 2 de TRACE 

| (France 25 FF ; Bel- 
gique 170FB; 

| Suisse 11FS; 

| Canada 6.508; 

| Etranger 30 FF). 

| 

| 

| 


(ml 


Ville : 


Je désire m'abon- 
ner à TRACE pour 1 
an, 4 numéros, en 
bénéficiant de votre 
tarif de lancement 
(France 75 FF ; Bel- 
gique 500FB; 
Suisse 33FS; 
Canada 20 $ ; Étran- 
ger 90 FF). 


TR 11 


[ Ci-joint mon réglement (indispensable). 
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EDITEUR ASSEMBLEUR : 
Microsoft. Vous permet de créer facilement 
vos programmes en langage machine à 
partir des codes mnémoniques du Z80. 
Utilisation de labels. Sauvegarde du source 
et de l'objet sur cassette. 
KTAMOK de 


COMPILATEUR BASIC : 

Compilateur Microsoft, Vous permet 
d'accélérer considérablement l'exécution 
de vos programmes en passant du BASIC 


interprété au Basic compilé. Nécessite un 
minimum de 48 K et un drive. 1450 F TTC 


UCSD PASCAL : 
Le PASCAL dans sa version originale. 
Nécessite 48 K et deux drives .1950 F TTC 


FORTRAN : 
Le langage scientifique. Normes ANSI 1966. 
Comprend un éditeur, un compilateur 

et un linker. Nécessite un minimum de 32 K 
avec | drive 


CP/M : 

Système d'Exploitation de Disques le plus 
standard. Permet d'accéder à tous les 
programmes fonctionnant sous 

CP/M 
L.D.O.S. : 

Système d'Exploitation de Disques très 
puissant. Pour disques 5 pouces, 

8 pouces ou disques durs. Formatage 
possible en double densité jusqu'à 80 pistes. 
Comprend un JCL (Job Control Langage) 
ainsi que de nombreux 

utilitaires 1900 F TTC 


Infinite BASIC : 

Ajoute de nouvelles fonctions à votre BASIC : 
par exemple toutes les opérations sur 
matrices (inversion, addition, multiplication). 
Compression et décompression de chaînes 
de caractères (pour gain de place). 

Tracé de droites, etc... 

Cérie JOURS ESS 580 F TTC 


Infinite Business : 

Suite de l'infinite BASIC, ajoute encore de 
nouvelles fonctions : précision des nombres : 
jusqu'à 120 caractères ; pagination sur 
imprimante ; manipulations diverses sur les 
tableaux de chaînes de caractères. 


KT TK 580 F TIC 


ENHBAS : 

Ajoute 32 nouvelles instructions au BASIC ; 
Exemples : ZSTEP : exécution d'un 
programme pos à pas @ SORT : tri rapide 
© RESTORE line number @ WHILE/WEND 
@ DRAW @ JNAME : attribue un nom 

à une ligne Basic @ EXEC String : 

exécute l'expression comme étant une 
instruction Basic. Etc... 


350 F TIC 


1300 F TTC 


1300 F TTC 


ENHBAS 16 K -K 7......... 450 F TIC 
ENHBAS 32K - Disk........ 450 F TTC 
ENHGRAPH : 


Ajoute 20 nouvelles instructions au Basic 
@ Exemples : PLOT : Trace une ligne, 

un rectangle @ INVERT : inverse les 
caractères graphiques à l'écran @ PLAY : 


VIDEO-GENIE 


Se 
& 


fonctions musicales @ WHILE/WEND @ 


DRAW, ETC... 

ENHGRAPH 16 K -K 7... 302 F TIC 
ENHGRAPH 32 K - Disk... 302 F TTC 
ENHSORT : 


Ajoute 22 nouvelles instructions detri et 
d'édition au Basic. Exemples : KEY/TAG : 
initialisation des vecteurs à trier @ SORT 
(paramètres) : tri rapide en RAM @ 
ATOP : limite de tri GSUB (label) @ 
WHILE/WEND, ETC... 
EHNSORT 16 K -K 7........ 
EHNSORT 32 K - Disk... 


G.S.F. : 

Routines en langage machine (appelées par 
USR) à adjoindre à vos programmes BASIC 
pour augmenter leurs performances : 
tracé de lignes sur l'écran, manipulations 
de données en mémoire, vive, tri en 
mémoire centrale, compression et 
décompression de données, etc. 


302 F TIC 
302 F TTC 





K7-16K.....---:-:7r-- 295 F TIC 
K7-32K... 295 F TIC 
K7-48K.:....-2-.0...— 295 F TIC 
D.S.M. : 


Tri multifichiers, multidisques. 
Résout tous les problèmes de tri. Nécessite 
au moins 32 K et 2 drives... 750 F TTC 


INSORT 80 : 

Programme de tri de fichiers sur disques, 
fonctionnant sous New-Dos. Nécessite au 
moins 32 K et un drive. (Cassette à 
transférer sur disque). 

LFP rl RP RE Tee 
T SHORT : 

L'entrée au clavier de longs programmes 
BASIC est chose fastidieuse. Avec TSHORT, 
chaque touche du clavier (en mode SHIFT) 
correspond à une instruction basic 
complète. Fourni avec une cassette, 

un manuel et un jeu de petites étiquettes à 
coller sur le devant des touches du TRS. 
Dr EN SC CR SE 195 F TTC 


COMPROC : 

Permet de faire s'auto-exécuter des 
programmes Basic. Le programme répond 
lui-même aux IMPUT à partir d'une liste 
créée par l'utilisateur. Chaïnage de 
programmes, etc... Compatible avec le 
Disk Basic, TRS DOS et NEWDOS. 
L'ART ETS 170 F TTC 


BLINK : 

Permet de chaîner des programmes en Basic 
avec passage de données de l'un à l'autre, 
démarrage du programme chaîné à un 
numéro de ligne Basic donné, etc. 


1éKK 7-2... 290 F TTC 


KEYBOARD EDITOR : 

Permet : touches à répétition automatique, 
touches graphiques, 191 touches 
programmables, duplication de lignes basic, 
etc... Fonctionne sous Basic, Dos ou 
Editeur-Assembleur. Compatible 

TRS DOS, NEW-DOS, NEW-DOS 80 

22 Disk 450 F TIC 


495 F TIC 





31, Bd DES BATIGNOLLES 75008 PARIS 
TEL. : 522.70.66 - 387.01.56 





Ouvert sans interruption du lundi au samedi de 9 h 30 à 18 h 30 
Métro : Rome, Place de Clichy, Europe - Parking assuré au 43bis, Bd des Batignolles 
Vente par correspondance - Crédit - Leasing - Carte Bleue - Visa. 


BOSS : 
Aide à la mise au point de programmes 
BASIC. Exécution d'un programme Basic 
instruction par instruction, ligne par ligne, etc. 
Visualisation de la valeur des variables à 
chaque pas, etc. Puissant outil de 
debugging. 

CT NOK ER 
BUGOUT : 

Aide à la mise au point de programmes en 
langage machine. Comprend aussi un 
désassembleur. 

K7-16K (pour TRS Mod. 1 

et Mod. 3) 


DISASSEMBLER | : 

Programme permettant de desassembler 
un programme en langage machine et créer 
ainsiun “Source” qui pourra êtrelu par 
l'éditeur-assembleur. 


KT MEN... eee 
DISASSEMBLER Il : 


Même chose que le l, mais version disque 


299 F TIC 


380 F TIC 


185 F TTC 


ps 


T BON DE COMMANDE 
Î Retourner à : SIVEA S.A. - 31, Bd des Batignolles 75008 PARIS 


Nom : 


UTILITAIRES ET LANGAGES 
POUR TRS 80 ET VIDEO-GENIE 


Cassette à transférer sur disque. 
TES EU 250 


MuMath : 

Ce programme écrit en LISP fait du cols 
intégral, du calcul différentiel, etc. 
Capable d'afficher des nombres de 611 
caractères, il vous donne par exemple le 
valeur de 250 ! (Factorielle 250). Entrez-2s 
l'intégrale indéfinie : INT (A* X + SIN 
X) : quelques secondes et la réponse 
apparaît : X*2* A/2 -Cos (X). 
MuMath vous développera aussi des 
expressions telles que : (3x + 2) , vous 
évitant ainsi de longs et fastidieux coleuts 
etc. 

Sur la même disquette : MuSimp permet 
de programmer votre TRS 80 dans ur 
nouveau langage. Nécessite au 

moins 32 K, 1 drive (48 K pour les 
dérivations et intégrations) .… 780 F TIC 


F TIC 


COBOL 80 : 
Fonctionne sous CP/M avec 48 K et des 
OTINES een ere see 5300 F TIC 


_ 
| 





Prénom : 











Î Adresse : 








Ville : 


I Code Postal : 


Bureau Distributeur 





LL | 
nu 
Q 
< 
a 


MODE DE REGLEMENT : 










Chèque bancairejoint [ 






CCP joint Q 







Mandat-lettre joint tel 






Contre-Remboursement Cl 


1 FRAIS DE PORT ET D'EMBALLAGE. 


Ajouter 220 F pour toute commande comportant, pour tout ou partie, 


Téléphone : 


Participation frais de port et 
d'emballage + 30 F. Voir ci-dessous. 


Contre-Remboursement : + 30 F 
(France seulement) 
Etranger et DOM-TOM : + 30F 
TOTAL 









PRIX TOIAE 











de ssl 


| que : unité centrale, floppy-disk, imprimante, moniteur vidéo, papier pour imprecnt=. 






Transport par service express avec assurance comprise. Corse, DOM-TOM, étronees 
nous consulter par téléphone ou courrier en ce cas). 
CR CO CRU DS GR SNS UE CONS GS CON NON SEX CURE EURE GRR 












LOTERUTE 


DORA ET AFIN) 


Éoébtéteiét BMVeDE ELA dE À à 


AD). AUS LT 


M CAE Ta 


REUT 


ANR 


TRS 


MODÈLE 1_ 


CONFIGURATION DE BASE : 


TRS 8016K Cassette 4990 F TIC 
Avec moniteur vidéo, câbles et manuel 
en français. Configuration extensible : 


PERIPHERIQUES : 
INTERFACE D'EXTENSION TRS : 

Avec 32 K de mémoire supplémentaire : 
augmente la capacité totale du système à 


48 K. Permet la connexion de 1 à 4 drives, 
d'une imprimante (sortie parallèle) 


4500 F TTC 
DRIVE SIMPLE : 
Se branche sur l'interface d'extension 
{cordon fourni). Capacité : env. 55 K 
pour le premier et 90 K pour les drives 
suivants. 
Fourni avec NEW DOS Plus et manuel 
DOS ; NEW-DOS en français. 3500 F TTC 


ACCESSOIRES : 

@ SORTIE SON : 

Fonctionne avec une pile de 9 V. 

$e branche sur la sortie magnétophone. 
Permet de produire des impulsions sonores 
commandées par programme .155 F TTC 
@ PADDLES : 

Poignées de jeu : contrôle des mouvements 
dans les quatre sens (haut, bas ; gauche, 
droite) et un bouton de tir. 

Livré avec une notice en français, une 
cassette émonstration. 


Paddle n° 1 : Unité de base, fourni avec 
un boîtier se connectant soit sur le clavier, 
soit sur l'interface d'extension. 

Sur le boîtier une prise DIN est prévue 
pour brancher le PADDLE n° 2.425 F TTC 
Paddle n° 2 : Fourni sans boîtier, 

se connecte sur le boîtier du 


mémoire {jusqu'à 48 K), disques 
(jusqu'à 4 drives), imprimante, paddles, 
etc... 


Pour connecter directement une imprimante 
à l'unité centrale clavier] 510 F TIC 


IMPRIMANTES : 


IMPRIMANTE SEIKOSHA GP 80 : 

Jeu de 128 caractèresetsymbolesen 
matrice 5 x 7. 40 ou 80 caractères par 
ligne. Entraînement par picots. Largeur du 
papier : 21 cm maximum. Possibilité de 
graphisme haute-résolution .. 2670 F TTC 
Céble interface 

Céble CPU 

IMPRIMANTE OKI MICROLINE 80 : 


Jeu de 96 caractères ASCII en matrice 9 x 7. 


40, 80 ou 132 colonnes. Caractères 
graphiques. Reproduit le graphisme du 
TRS 80. Friction ou traction par picots. 
Largeur du papier : listing 240 mm ou 
friction 210 mm. Imprimante très robuste. 
MICROLINE 80 

MICROLINE 80 avec câble 

interface 


Editeur - Assembleur 

MICROSOFT : 16K,K7 

TINY PASCAL : K7,16K 

COMPILATEUR BASIC MICROSOFT : 
1450 F TTC 

UCSD PASCAL : 

2Drives,48K 

FORTRAN :1 Drive, 48K 

COBOL : nécessite CP/M + 

2 Drives + 48K 


1950 F TTC 
1300 F TTC 


31, Bd DES BATIGNOLLES 75008 PARIS 
TEL. : 522.70.66 - 387.01.56 


Ouvert sans interruption du lundi au samedi de 9 h 30 à 18 h 39 
Métro : Rome, Place de Clichy, Europe -Parking assuré au43bis, BddesBcfionclles 
Vente par correspondance - Crédit - Leasing - Carte Bleue - Visa. 


D.O.S. (Disk operating 
System) 


1900 F TTC 
1300 F TIC 
New-Dos 80 Version 2.0... PRIX N. C. 


UTILITAIRES ET 
PROFESSIONNELS : 


Comptabilité P.M.E. : 

Création et consultation de comptes, 

saisie des écritures comptables, édition des 
journaux, balance des comptes, 

opérations de fin d'exercice, etc. 

En français. Comptabilité française. 
Requiert 32 K, 1 drive et 1 imprimante 
(type Microline 80) 900FTIC 
Cours de Basic programmé 


(sur disquette ou K7) 350 F TIC 


Fichier clients + mailing : 

Votre fichier clients sur micro-ordinateur. 
Edition des étiquettes-adresse sur 
imprimante pour mailings. En français. 
Requiert 32 K, 1 drive et une imprimante 
pour les mailings 300 F TTC 


BOSS : 

Aide à la mise au point de programmes 
BASIC. Exécution de programmes Pas 

à Pas, ligne par ligne, etc. Visualisation du 
contenu des variables à chaque pas, etc. 
Puissant outil de debugging. 


Aide à la mise au point de programmes 
en langage machine. Comprend aussi un 
désassembleur. 

K7,16K (pour TRS modèle 1 

et modèle 3) 


LIBRAIRIE : 

© Manuel DOS et NEW-DOS 
enFRANÇAIS 

@THEBOOK Vol1 
@THEBOOK Vol2 


© MICROSOFT ROM DECODED & 
OTHER MYSTERIES 

@ THE CUSTOMTRS & 

OTHER MYSTERIES PRIX N. C. 
@BASIC FASTER AND BETTER & 
OTHER MYSTERIES 


pe 


RST 


Eee 


l Adresse : 


| vite: 
| Code Postal : 





Téléphone : 


BON DE COMMANDE 
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La société Graphie propose une carte graphique à 
haute résolution (384 x 192) soit douze fois la 
résolution standard, se raccordant au bus du modèle 
1, ayant pour nom CHR80. Ce dispositif se programme 
directement en BASIC au moyen de mots-clés spéciaux. 
Afin de ne pas pénaliser l'espace mémoire de l'utili- 
sateur, la carte possède ses propres circuits de 
mémoire. Un système d'effacement "hardware" permet 
de créer des effets d'animation spectaculaires. Prix 
avec câble de raccordement et manuel : 2490 FF tte. 
La même société annonce une carte d'extension mé- 
moire de 16 ou 32 K octets se logeant dans le cla- 
vier du modèle 1 de base, pour les utilisateurs 
dépourvus d'interface d'extension. Prix : 995 FF ttc 
pour 16K (modèle MI-1), 1380 FF tte pour 32K (modèle 


MI-2). 


Tandy commercialise maintenant (aux USA) des unités 
de minidisquettes 13cm pour le TRS couleur. La ca- 
pacité est de 156 K octets par unité ; une à quatre 
unités peuvent être raccordées à cet ordinateur. 

Le prix actuel est de 599$ (environ 3400 FF) pour la 
première unité, 399$ (2300 FF) pour les suivantes, 
ce qui porte le prix du TRS couleur à 1198$ (6800 FF) 
en configuration 16K (sans récepteur de télévision), 
avec BASIC étendu et une minidisquette. 

A ce sujet, la version couleur ne devrait plus 
tarder à être disponible en France, en standard PAL 
dans un premier temps, ce qui oblige à avoir un 
récepteur de télévision multi-standards. Le prix en 
16K BASIC étendu est finalement de 5795 FF ttc. 


Alpha Systèmes présente en France l'édition améri- 
caine de l'encyclopédie du TRS-80 en 10 volumes. 
Les trois premiers volumes sont disponibles sous 
deux présentations : relié (200 FF tte à l'unité) 
ou broché (100 FF tte à l'unité). 


Vidéo-Génie System annonce de nouveaux modèles 82 
le EG 3003 avec caractères minuscules, dispositif 
sonore incorporé et BASIC 14 K octets incluant un 
moniteur langage machine et une commande de re- 
numérotation, et le EG 3008 ayant les mêmes carac- 
téristiques que l'EG 3003 mais possédant de plus, 
un clavier numérique. Le magnétophone n'est pas 
inclus dans ce modèle. Une routine de communication 
par le canal V24 (RS232) est incluse dans les MEM 
du BASIC (à la place du moniteur langage machine). 








Lors d'un passage en Italie, nous avons pu nous 
procurer le catalogue de Tady Italia, dont la 
lecture nous a révélé quelques nouveautés intéres- 
santes qui ne semblent disponibles qu'en Italie. 


- Un disque "dur" de 13 cm, sans doute d'origine 
Olivetti, avec une capacité unitaire formattée de 
3, 6 ou 10 Mégaoctets ; un contrôleur permet 
d'équiper le Modèle 3 de 1 à 4 unités de ce type. 
- Un disque "dur" de 20 cm, avec uné capacité uni- 
taire formattée de 3, 6 ou 10 Mégaoctets, destiné au 
Modèle 2. 

- Un disque "dur" d'une capacité de 10 Mégaoctets 
(5 fixes, 5 amovibles) auquel on peut connecter 
par un multiplexeur spécial de 1 à 60 modèles 1, 2 
et 3 mélangés. 
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Le premier modèle 3 français de série a dû sortir = 


20 janvier des chaînes de l'usine de Colmar 

résultat des accords Matra Tandy, auxquels le gou- 
vernement français a finalement donné son feu vert. 
La production pourrait atteindre 10 à 15000 exemplæ== 
res par mois à la fin de l'année, dont une grosse 
partie sera exportée en Europe. 


D —— 


Le "couleur" façon Thomson : nous n'avons pas encæ= 
pu mettre la main sur le prochain ordinateur indi- 
viduel de Thomson-Brandt, le 9000, à brancher su 

une TV couleur SECAM. Mais nous avons réussi à 
savoir qu'il présenterait de nombreuses ressemblznes 
avec un système américain connu : processeur 68 
BASIC Microsoft version 5 avec instructions grapaz— 
ques et sonores, affichage de 24 lignes de 40 
caractères avec couleur semi-graphiques, etc. 

Un crayon lumineux et des poignées de jeu optionm 
complètent ce système qui devrait coûter 2 à 3000 == 
tte. Le 9000 et le TRS Couleur arriveront-ils à 
donner au Microprocesseur 6809 tout le succès qu'2= 
mérite ? En attendant, si Thomson vend son ordinsi= 
par l'intermédiaire de son réseau de revendeurs T8 
cela va faire du monde ! 















La gamme Tandy devrait s'étoffer à la NCC (juin82) 
Avec un (ou des) nouveau(x) modèle(s). Les infor=== 
tions que nous avons eues semblent un peu contra- 
dictoires (TRACE n'a pas encore toute la notoriéte 
souhaitable et méritée ! -NDLR), puisque s'il sesble 
certain que le microprocesseur utilisé sera un 16 
bits, nos informateurs sont partagés, les uns disææ# 
qu'il s'agira du Zilog Z8000, les autres affirmans 
tout aussi certainement que ce sera le Motorolz 655 
Mais comme on nous a également parlé des modèles # 
5 ou 6, rien n'empêche de penser que tout est Wræs 








Le Sharp PC-1211 va sans doute être remplacé par Æ 
nouveau Sharp PC-1500, qui sera disponible avec == 
imprimante graphique À couleurs (si!si!l). Le 1508 

est à peine plus gros que le 1211, et devrait 
en France, au prochain trimestre, 1500 à 2000 
L'imprimante aurait un prix du même ordre. Ah, cs 











ordinateurs de poche ! 





Le nouveau système Apple 3 vient d'être re-lancé sur 
le marché américain (et enfin lancé sur le marché 
européen). Quelques déboires avaient été rencontrés 
sur les premières versions de ce matériel, qui 
paraît maintenant avoir finalement atteint le niveau 
de fiabilité et de finition que souhaitait son 
constructeur. Deux atouts importants de cette 
machine semblent être VisiCalc et Profile. Si le 
premier est bien le programme habituel de manipula- 
tion de tableaux numériques, le second en revanche 
n'est pas le programme fort connu de gestion de 
fichiers, mais en fait un disque dur d'une capacité 
de 5 millions d'octets. 

L'affichage sur un écran de 80 caractères (au lieu 
des 0 de l'Apple 2) devrait également faciliter 
l'utilisation de cette machine, qui comporte de plus 
un générateur de caractères modifiable par prog- 
ramme. De quoi passer très vite en AZERTY accentué ? 











-.-. DERNIERE MINUTE ... DERNIERE MINUTE ... DERNIERE 


D'après un appel téléphonique dé notre correspondant 
à Fort Worth (ce n'est hélas pas un "officiel" de 
chez Tandy), Tandy vient d'annoncer aux Etats-Unis 
toute une série de nouveaux produits. Le siège euro- 
péen de la société se refuse à tout commentaire sur 
ces informations, qu'il est donc prudent d'accueil- 
lir avec quelques réserves. 





- Une nouvelle machine apparaît en haut de gamme, 
sous le nom de TRS-80 Modèle 16. Ce système est 
compatible avec le Modèle 2, et serait utilisable en 
multiposte avec un terminal standard appelé Data 
Terminal DT 1. L'unité centrale comporte deux micro- 
processeurs : un Z80 (8 bits) destiné à permettre la 
compatibilité avec le Modèle 2, et un Motorola 68000 
(16 bits), qui permet l'accès à une mémoire vive de 
128 à 512 K-octets, La mémoire de masse serait en 
standard un disque dur de 8,4 millions d'octets. Un 
kit de transformation permet de convertir un modèle 
2 en modèle 16. 

Prix aux Etats-Unis : Modèle 16 de 128 Ko de mémoire 
MEV, 5000 $ (environ 29000 FF); kit de transforma- 
tion modèle 2/16, 2000 $ (11000 FF); terminal DT 1, 
700 $ (4000 FF). 





- Bien plus bas dans la gamme, l'ordinateur de poche 
TRS-80 '"poquette!", alias Sharp PC 1211, se 
complete par une nouvelle machine (ou vers 
étoffée ?) appelée PC 2, et qui coûterait 279 $ 
(1600 FF environ). 






Si toutes ces informations se confirment, elles 
justifieraient pleinement l'attitude des officiels 
de Tandy qui ont jusqu'à présent farouchement nié 
l'existence de TRS modèles 4, 5 ou 6 : il suffisait 
d'aller jusqu'à 16 ! 





Bientôt des claviers AZERTY accentués sur tous les 
modèles de TRS ? Il existe déjà un kit de transfor- 
mation pour le modèle 1, qui s'utilise avec un 
"patch" logiciel à apporter à différents programmes 
tels que Scripsit, et qui permet ainsi du vrai trai- 
tement de textes sans acrobaties. 

Un kit du même type devrait être prochainement dis- 
ponible pour le modèle 3, sans doute dès mars... si 
les claviers modifiés sont livrés assez vite. Cette 
première modification utilisera en effet un clavier 
mixte". : AZERTY accentué pour le traitement de 
textes et certains programmes modifiés spécialement, 
QWERTY standard pour le BASIC et les autres program- 
mes non modifiés. On peut se demander si les 
machines construites par Matra seront ou non ainsi 
transformées... 

En septembre, la transformation devrait être amélio- 
rée, permettant notamment d'utiliser tous les logi- 
ciels standards avec le même clavier et la même 
disposition de touches AZERTY. 

En septembre toujours, le modèle 2 devrait lui aussi 
bénéficier d'une modification de ce type. 


Adresses des sociétés mentionnées 
- Alpha Systèmes : 51 rue Thiers, 38000 Gre- 
noble. 
- Apple : 7 rue de Chartres, 92000 Neuilly. 
- GES : 76 avenue Ledru-Rollin, 75012 Paris. 


- Graphie : Galerie 92, 92 rue Saint-Lazare, 
75009 Paris. 


- Sharp : 151 avenue Jean-Jaurès, 93307 Auber- 
villiers Cedex. 


- Tandy France : 211 boulevard MacDonald, 75019 
Paris, 


- Tandy Italie : Corso Vittorio Emanuele 15, 
20122 Milano, Italie. 


- Thomson-Brandt : 173, boulevard Haussmann, 
75008 Paris. 
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Sous ce titre, vous trouverez pêle-mêle, dans chaque numéro, un tas de petits rensei- 
gnements pratiques d'origines diverses, qui vous permettront de tirer un meilleur 
parti de votre ordinateur et de ses particularités. 


000 0e cts ont 1008 0e me nt 008 ue ce de 0 0 0 ae A 000 ie 0 0 ne ue ce nt nt don 0 une co né 0 on cm 0 00 ne ec ne nt 0 en mm 0 oc de 0 ne ce cé me 0 00 ce 0 nn de 0 0 cm 0 0 me ce mme 


Le Pascal UCSD en minuscules 


Si vous possédez le Pascal UCSD et si votre Modèle 1 accepte les minuscules, ce 
"patch" vous permettra de concilier les deux. IL doit être appliqué sur la pre- 
mière des trois disquettes d'origine du Pascal distribué par FMG, à l'aide de 
l'utilitaire SUPERZAP du NEWDOS80 (ou équivalent). Pensez à faire une sauvegarde 
avant toute chose ... 


- Piste 12, secteur 3, adresse relative 98H : 
69 D6 20 2A... devient 69 00 00 2A... 


ee ee me ou te pe dt ee ce ee me me me cm ie ec cm te ce ie ee de me ee de de de ee dot ce ce ne ce ce ee ce ne et cn ce come ee ce ne ie ne de ne cé ee ee ie 


Une incompatibilité du BASIC sous NEWDOS80 


Le BASIC du NEWDOS80 version 1 présente une anomalie se manifestant par exemple 
dans un programme tel que VERSAFILE. Lorsqu'une sous-chaine vide (cela peut arri- 
ver!) est recherchée dans une chaine, l'instruction INSTR délivre le résultat 0 
alors que les autres BASIC (LDOS, TRSDOS) délivrent le résultat 1. Bien que l'un 
ou l'autre des résultats soit contestable (une chaine non-vide contient-elle une 
sous-chaine vide?), il peut en résulter un problème de compatibilité. Apparat, 
créateur du NEWDOS80, propose un "zap" pour corriger cette anomalie. C'est le 
dernier "patch" officiel de la version 1, (avant passage à la version 2) qui porte 
le numéro 60. Nous le donnons ci-dessous pour ceux qui n'en auraient pas eu 
connaissance. 


- BASTC/CMD secteur 5, adresse relative 9D 
E1 81 38 1D ED 44 80 47 30 17 devient 
E1 90 30 1D ED 44 91 47 38 17 


Pour savoir si ce patch est nécessaire, essayez le programme ci-dessous 


10 A$="CHAINE" 

20 B$="" 

30 I= INSTR (A$,B$) 
JO PRINT I 


Si le résultat est 0, le patch doit être appliqué. Il est possible de détourner 1e 
problème en ajoutant la ligne 


35 IF LEN(B$)-0 THEN I=1 


40 pistes ? et pourquoi pas 41 ? 


Vos unités de disquettes acceptent 40 pistes ? C'est déjà un progrès par rapport == 
35 classiques, à condition d'employer un DOS qui sache les exploiter (NEWDOS80, 
LDOS). Mais avez-vous essayé d'en demander 1 (ou peut-être même 42)? Dix secteurs 
supplémentaires sont toujours appréciés et certaines unités les acceptent. Voici 

les capacités obtenues pour une disquette non-système 
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- 35 pistes : 67 granules, 85760 octets utilisables 
- 10 pistes : 77 granules, 98560 octets utilisables 
- 41 pistes : 79 granules, 101120 octets utilisables 


Avec NEWDOS80, il suffira de faire 
FORMAT, 1=40,TOTO,00/00/00 , PASSWORD 
et avec LDOS : 


FORMAT :1 (NAME="TOTO" ,MPW='""PASSWORD", CYL=40) 


me 0 me me me mt 0 mm 2 00 0 te 0 mc 0 a mm 


Signal sonore avec l'interface d'extension 


L'interface d'extension du Modèle 1 contient, vous le savez peut-être, un relais 
électromécanique permettant l'aiguillage vers l'un où l'autre des deux magnéto- 
phones. Ce relais possède deux états stables pouvant être programmés par l'adresse 
14308. Voilà qui est suffisant pour réaliser un puissant signal sonore (par vib- 
ration du relais), avec le programme ci-dessous 


10 ‘ SIGNAL SONORE 

20 FOR N=1 TO 20 

30 POKE 14308,0 : POKE 14308,1 
4O NEXT 


Attention à VARPTR 


Avant d'utiliser l'instruction VARPTR du BASIC sur des tableaux numériques, il faut 
savoir que toute création postérieure de variables modifiera l'emplacement initial 
de ce tableau. Voici un petit programme qui vous montrera bien ce qu'il convient de 
faire - ou ne pas faire - en de telles circonstances. 


10 ' UTILISATION CORRECTE DU VARPTR 
20 ! 

30 4% (0)=-4660 

UO PT=VARPTR (A%(0O)) 

50 PRINT PEEK (PT) , PEEK(PT+1) 


60 END 

‘1e 

80 ‘ UTILISATION INCORRECTE DU VARPTR 
90" 


100 A%(0)=4660 

110 PT=VARPTR(A%(0O)) 
120 FOR N=0 TO 1 

130 PRINT PEEK(PT+N) 
140 NEXT : PRINT 


En exécutant un "RUN" du programme, les valeurs trouvées à l'adresse pointée par 
le VARPTR sont affichées. Le résultat est correct (52 + 256*18 = 4660). Pour exé- 
cuter le Second programme, il suffit de faire "RUN 100". Comme vous pourrez le 
constater, le résultat affiché est erroné. Pourquoi ? La boucle des instructions 
120 à 140 introduit une nouvelle variable N qui vient modifier l'emplacement du 
tableau A%. La valeur initiale donnée par le VARPTR ne sera donc plus exacte. 
Pour vous en convaincre, relancez ce programme par GOTO 100 et constatez que cette 
fois, le résultat est correct. Pour éviter cet inconvénient, il suffit de créer N 
avant d'employer le VARPTR en ajoutant la ligne : 105 N-0. 


DEP TR ne et me 00 00 D QD D © Qu © 00 Qu ce a mm en 0 Om en = 400 Qu er eu em en eu a en ee a ee ue me ee © ee ee eee 
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Simulez une touche HOLD sur votre modèle 1 


Sur le modèle 2, la touche HOLD permet de geler l'affichage vidéo à n'importe quel 
moment. Sur le modèle 1, on peut utiliser les touches SHIFT et . Le problème est 

que ces touches sont complètement ignorées de certains logiciels, comme le compi- 

lateur BASIC par exemple. La routine en langage machine ci-dessous vous permettra 

de stopper la liste sur un simple appui de la barre d'espace. 


OFFEDH 

HL : (401EH) 
(VISU+1):HL 
HL:WAIT 
(401EH) 7HL 
(4049H) :HL 
402DH 

ÀF 
A:(3840H) 
80H 
ZrWAIT+1 
AF 

0000 

HOLD 


SELON MEM SIZE 
ADR DRIVER DO ACTUEL 


DEROUT. DRIVER DO 
ET PROTECTION MEM 
RETOUR AU DOS 


LIGNE KB DU SPACE 
TOUCHE ENFONCEE? 
QUI 


= 
1 
s 
7 
= 
3 
= 
g 
# 
3 
= 
7 
= 
7 
# 
7 
= 
7 
= 
3 
= 
7 
= 
7 
= 
7 


SURPRIS 7? 








matériels 


Tableau comparatif 
des TRS 








Les prix indiqués ont été calculés d'après les do- Quelques informations complémentaires : 

cuments publicitaires Tandy. Les capacités des dis- 

quettes correspondent aux valeurs "brutes" non- - Le modèle II sera bientôt équipé d'un disque dur 

formattées. dont nous ignorons actuellement la capacité (5 ou 
10 Mo ?). 







- Moyennant un logiciel et un matériel adéquats (nes 
commercialisés par Tamdy), les mémoires de stockage 
du modèle 1 peuvent être augmentées dans des propor— 
tions respectables : 





Modèle MEM MEV| Disquettes Prix total 
(ROM) |\(RAM (FF ttc) 


UK 







. minidisquettes 40 pistes : 102K formattés 
. minidisquettes 80 pistes 204K formattés 
. doubleur de densité Percom : 180à360K formattés 
-"mapper II" Omikron pour disquette 8" : 320K for- 
mattés. 


1x5" ( 89K) 
Hx5"_(356K) 







-En standard, les minidisquettes du modèle 3 posse- 
dent 40 pistes. Il est possible d'en doubler la cz- 
pacité en les remplacant par des unités de mini- 
disquettes 80 pistes, ou par des minidisquettes 
double face d'autres fournisseurs. 





IS ANCATER) 
2x5" (350K) 
Ux5"_(7O0K) 


1x8" (500K) 


Li 






— Des disques durs 13 cm d'origine CII seront sans 
doute proposés prochainement par des sociétés 
indépendantes, tant pour le modèle 2 que pour 1e 
modèle 3. De tels disques ont en général une 
capacité de 5 à 10 millions de caractères. 






2x8"(1000K) 
HxB8"(2000K) 
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matériel 





Coup d'œil... 
.dans le TRS Couleur 








Vous avez peut-être aperçu le "Couleur" aux boutiques 
du SICOB ? Nous aussi. Et notre "super-vue" à rayons 

X a même réussi à s'infiltrer sous la coquille grise 

du clavier ! 


Ce que nous y avons vu nous a fort surpris : deux 

douzaines de circuits intégrés, tous d'origine Moto- 
’ rola, y compris le microprocesseur lui-même, le 

6809. Fini le Z80 des modèles 1, 2 et 3. Pourquoi 

ce choix ? 


Le MC6809 de Motorola est un puissant microproces- 
seur 8 bits, capable d'exécuter un certain nombre 
d'instructions 16 bits. Il est dérivé du 6800 très 
connu, sur lequel il a la supériorité de posséder 
trois registres supplémentaires. Le jeu d'instruc- 
tions de base est très étendu (il possède même une 
multiplication d'octets) et possède l'avantage de 
ne présenter aucune exception dans la portée des 
modes d'adressage. Le code exécutable est relogeable 
et "ré-entrant". Voilà, en bref, pour le micropro. 
cesseur. 


Quatre autres circuits 40 pattes se partagent le 
reste du travail. Le contrôleur vidéo MC68L7 fournit 
au "couleur': un mode alphanumérique à L couleurs, 
avec 64 graphismes possibles plus ces mêmes 64 en 
inversion vidéo, sur 16 lignes de 32 colonnes; deux 
modes semi-graphiques (64 x 32 blocs et 64 x U8) en 


8 couleurs; et huit modes graphiques (64 x 64 à 

256 par 192) de 1 à 8 couleurs selon la définition 
atteinte. Un contrôleur MC6883 génère les impulsions 
d'horloge et le rafraichissement de la mémoire. 
Enfin, deux contrôleurs parallèles MC6821 assurent 
l'interface avec le magnétophone (vitesse 1500 bauds) 
le canal Son/vidéo, les 2 manettes de jeux, la 
liaison R$232 (pour le premier) et le matriçage du 
clavier (pour le second). Le BASIC est contenu dans 
une ROM de 8K octets, complétée d'une seconde ROM 

de même taille dans le cas du BASIC étendu. La mé- 
moire vive a une capacité de 4 ou 16K octets (16K 
obligatoires en BASIC étendu), sur laquelle sont pré- 
levés jusqu'à 6K pour les graphiques en haute réso- 
lution. 


Compte tenu du profil de la machine et des composants 
électroniques actuellement disponibles, cette con- 
ception homogène et efficace nous semble particuli- 
èrement bien étudiée, ainsi que l'était, en son temps 
celle du modèle 1. Nous ne pouvons que lui souhaiter 
la même réussite (et moins de défauts de jeunesse !). 


Néanmoins, ce système ne sera vraiment intéressant 

en France que lorsqu'il sera doté d'une interface 
couleur adéquate (SECAM ou Peritel), car actuellement 
le moniteur NTSC en grève le prix d'une manière qui 
n'est pas à négliger. 
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matériel 





Les compatibles 
du modèle 1 





Sous ce vocable, nous voulons désigner deux systèmes 
apparus depuis peu sur le marché américain, et 

encore plus récemment en France : Le Vidéo Génie 

(ou PMC80); et le LNW80 qui présente la particularité 
d'être vendu sous forme de "kit". Ces deux ordina- 
teurs sont, si l'on en croit leurs constructeurs, 
compatibles avec le TRS-80 Level 2, ce qui signifie 
que, a priori, tout logiciel fonctionnant sur modèle 1 
pourra "tourner" sur ces machines. Le TRS80 étant 
plus connu et aussi le premier historiquement, nous 
désignerons indifféremment sous cette appellation 

le TRS80 modèle 1, le Vidéo Génie et le LNW, à moins 
bien sûr qu'une différence ne nous soit connue et 
qu'elle mérite d'être signalée. 







DD 


RD ee 


Nous n'avons que peu d'informations sur le LNW80 : son 
importation en France (par Penta-Sonic) semble assez 
récente, et son approvisionnement par ce canal paraît 
poser encore quelques problèmes. (Encore que divers 
membres de l'A.U.T. nous aient assuré avoir réussi 

sans trop d'ennuis des importations directes depuis 

les Etats-Unis.) Aussi préférons-nous ne vous en parler 
que dans un prochain numéro. 


Le Vidéo Génie par contre nous est moins inconnu, et 
nous allons signaler ici les quelques incompatibi- 
lités (minimes) que vous pourriez rencontrer en 
programmation : le propre d'un compatible, n'est-ce 
pas d'être incompatible sur certains points ? 


Sur les premiers modèles, les touches correspondant 
sur le TRS à "flèche en haut" ét "flèche en bas" 
portaient les marquages respectifs "ESC" et "CTRL'". 
De même, la "flèche à gauche" s'appelait "back 
space". Les touches "flèche à droite" et "clear" 
n'existaient pas. Actuellement, les nouveaux 
modèles (EG 3003-82) ne possèdent plus ces diffé- 
rences. 


Les graphismes vidéo des quatre flèches sont rem- 
placés, à l'instar du modèle 3, par les symboles : 


“pu, ILq it mn et n°" 


Le code décimal 23, lorsqu'il est envoyé vers la 
vidéo (PRINT CHR$(23) ), ne provoque pas le passage 
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en gros caractères. Celui-ci s'effectue par une 
commande manuelle. Néanmoins, la compatibilité "32 
caractères par ligne" est conservée puisqu'un espace 
est automatiquement intercalé entre chaque caractère. 


Les deux magnétophones sont commandés par les deux 
“ports" d'adresse OFFH et OFEH. Sur le TRS, seul le 
port OFFH est utilisé, la commutation d'un magnéto- 
phone à l'autre étant pilotée par l'adresse 37E4H. 


L'imprimante parallèle est commandée par le port 
OFDH, alors que sur le TRS, elle est pilotée par 
l'adresse 37E8H. 


Enfin, le Z80 du Vidéo Génie reçoit une horloge de 
1.79 Mhz contre 1.77 pour le TRS, ce qui peut appor- 
ter quelques différences dans les programmes faisant 
appel aux calculs de temps. 


Nous n'avons eu entre les mains qu'un Vidéo Génie 
“de base" sans disquette : impossible de dire pour 
l'instant si cet organe périphérique présente des 
différences dans la programmation. Que les posses- 
seurs de ce système nous fassent part de leurs expé- 
riences ! 


= 
a 





Dans un prochain numéro, nous vous parlerons d'un 
autre compatible du modèle 1, et de ses incompati- 
bilités : le modèle 3 ! 








essais 





Deux programmes 
de jeu 





Avertissement : les prix des programmes décrits sont 
les prix moyens observés, et la liste des revendeurs 
n'est pas exhaustive. 


. GALAXY (Big Five Software) 

. METEOR (Big Five Software) 

disponibles chez : Graphie, Sideg, Sivea 
Prix moyen : 145F TIC le programme 


Big Five Software est maintenant bien connu pour ses 
jeux aux qualités sonores et visuelles incontestables 
Deux "champions" nous livrent leurs impressions ... 
Ecoutons d'abord Stéphane, 14 ans 


- Bravo à Big Five pour GALAXY, un très bon jeu qui, 
malgré son étrange ressemblance avec le "Galaxian" de 
Xavier Ackaouy, se classe parmi les meilleurs 
programmes. De présentation attrayante, l'animation 
est aussi amusante qu'excellente. Le but du jeu est 
de détruire un maximum de vaisseaux qui plongent sur 
vous. Avec trois "chances" plus une tous les 10.000 
points, vous pouvez dépasser les 500.000 après 
environ deux heures et demie. Pour ma part, j'ai 
atteint 498.000. Mais attention ! A partir de 
200.000 (quand on y arrive !!), les attaques des 
"flag ships", qui ne commencent qu'à 30.000, 
deviennent lassantes, même ennuyeuses ... Bon 
programme tout de même... A vous de juger. 


Les petits'"trucs'" 


1) Si vous voulez tout de suite avoir affaire aux 


+. 

MA YA Lyu 
rh 

+ +, 4, , 


g &, 





Les envahisseurs arrivent sur La galaxie ! 


"flag ships attacks'", patientez sans tirer quelques 
secondes après le début de la partie. 

2) Ne restez jamais dans les coins. 

3) Si vous voulez avoir 3000 points d'un coup, 
abattez les deux vaisseaux entourant un flag ship, 
puis "“descendez'" celui-ci. 

4) Lors d'une attaque d'un flag ship, si vous ne 
l'abattez pas, vous vous faites proprement "descendre 


Sur ces paroles qui vous font froid dans le DOS ... 
écoutons un autre combattant de l'espace : Jean- 
Philippe, 15,ans 





Encore quatre naufragés de L'espace à secourir... 


— METEOR consiste à recueillir six astronautes 

perdus sur une planète inconnue. On peut poser son 
engin spatial (une sorte de navette sortant d'un 
gros vaisseau), sur 3 plates-formes qui rétrécissent 
au fur et à mesure des voyages. Elles valent res- 
pectivement 100, 200 et 300 points. L'inconvénient 
est qu'il y a des météorites sur votre trajectoire... 
et elles augmentent en nombre à chaque passage. 

Votre engin spatial peut aller de droite à gauche, 
peut ralentir, mais ne peut jamais revenir en 
arrière. Au retour, il peut accélérer et tirer sur 
les obstacles. Certaines météorites peuvent se 
métamorphoser en un vaisseau ennemi (flag ship), 

qui peut valoir de 100 à 2000 points si on le 
descend. 

Il est déconseillé de se poser sur les météorites, 
sur le sol (en dehors des plates-formes) ou de dé- 
passer votre engin transporteur, sinon votre navette 
explose en morceaux. Parfois, un nuage apparaît sur 
l'écran et il est déconseillé d'aller à sa rencontre! 
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“Dossier n°42: bureau d'avocats 





"Nous confions dorénavant nos créances 
au micro-ordinateur TRS-80 de Tandy, 
qui récupère d’un seul coup 50.000F d'honoraires impayés, 





«Nous devons 
songer à protéger 
nos intérêts envers 
les clients distraits 
ou les cas litigieux. 
Comment être vigi- 
lant ? Nous Suivions 
chacun nos affaires 
sur un fichier 
manuel : provisions 
des clients, créances, 
dettes diverses et 
clôture des dossiers. 
Avec beaucoup de 
temps et de rigueur t 
on peut se contenter k 
d'un tel système. 
Mais il faut bien 
avouer que l'argent 


nous glissait entre les doigts. 


Nous avons décidé de régler 
nos comptes rapidement et 
au plus juste. 

Comment ? Le TRS-80 de 
Tandy a pratiquement récu- 
péré le double des honoraires 
impayés que nous avions 
estimés. il S'est amorti par 
la même occasion». 





4 
The biggest name in little computers?" <<“ 


au lieu de 30.000F estimés” 


Zn. 
_— 


Tandy apporta à ce bur- 


reau d'avocats la solution qui 


s'imposait : un micro-ordi- 
nateur destiné à toutes les 
tâches administratives, 


commerciales et comptables. 


Grâce à son programme de 
gestion de fichiers, le TRS-80 
indique instantanément, 
sans erreur, le montant des 
créances, leurs dates 
d'échéance, et personnalise 
automatiquement leslettres 


de rappel. 

C'est un outil 
simple d'utilisation, 
parfaitement adapté 
à toutes activités 
personnelles où pro- 
fessionnelles. Tandy 
est le leader du 
marché de la micro- 
informatique. Nos 
TRS-80 forment la 
gamme la plus per- 
formante des micro- 
ordinateurs. [Is sont 
rapides, fiables, et 
d'un prix accessible. 

Nous mettons à 
votre disposition un 
réseau de distribu- 
tion qui s'étend de jour en 
jour, «couplé» à une orga- 
nisation mondialement 
reconnue. 

TRS-80, une gamme de 
micro-ordinateurs à 
partir de 4.990F TVA 
de 17,60% incluse. 
Avec un large 
éventail de 
logiciels. 










utilitaire 





La trace pas à pas 
en BASIC 





L'ordre TRON du BASTC Level II permet de suivre 
ligne par ligne l'exécution d'un programme BASIC. 
Cette fonction, bien que très utile, présente 
quelques inconvénients 


- elle détruit l'ordonnancement de l'écran prévu 
par votre programme, 

- la trace peut se dérouler si rapidement qu'une 
partie des numéros de ligne affichés disparaît 
vers le haut, 

- il ne reste pas de trace écrite du test, 

— il n'est pas possible d'exécuter le programme 
ligne par ligne pour pouvoir lister, le cas 
échéant, le contenu de certaines variables. 


La petite routine assembleur ci-dessous appelée 
STEP, remédie à ces inconvénients. Elle permet la 
sortie sur l'imprimante des numéros des lignes 
exécutées, l'exécution ligne par ligne et l'impres- 
sion des variables dont on désire connaître la 
valeur, sans modifier le contenu initial de l'écran. 


Mise en oeuvre 


Lancer STEP sous DOS ou par la commande "system", 
en n'oubliant pas de spécifier une valeur de 
protection mémoire 


- version 16K, memory size = 32510 
version 32K, memory size = 18891 
version 48K, memory size = 65278 


A partir de cet instant, la routine est chargée 
mais non-activée. Elle ne fonctionnera que lorsque 
la fonction TRON sera appelée. 


Si vous désirez la trace complète du programme, 
tapez TRON avant RUN. 


Si vous voulez seulement tracer une portion de votre 
programme, placez TRON et TROFF aux endroits 
adéquats. 


Tant que TRON est actif, les numéros de ligne ordi- 
nairement destinés à l'écran sont envoyés vers 
l'imprimante sous leur forme habituelle <nnnn>. 

Le programme s'arrète avant l'exécution de chaque 
ligne. Pour exécuter la ligne suivante, appuyer sur 
SHIFT. Dès le relâchement de cette touche, la ligne 
sera exécutée, et si TRON est toujours actif, le 
numéro de la prochaine ligne à traiter sera 
imprimé. 


Pour vérifier le contenu d'une variable, il suffit 
d'inclure dans le programme des PRINT (affichage 
sur l'écran) ou des LPRINT (affichage sur l'impri- 
mante), aux endroits voulus. 


Pour sortir prématurément du pas à pas (retour au 
BASIC), appuyer sur SHIFT et BREAK, puis relacher 
SHIFT. 


Restriction 


Comme cette routine est activée par une tentative 
d'affichage du < précédant le numéro de ligne 
généré par TRON, il ne faut pas que le programme 
affiche lui-même ce caractère, à moins que l'effet 
correspondant ne soit vraiment désiré. 


Spécifications 


Cette routine est prévue pour une imprimante avec 
avancement automatique du papier (Line Feed) après 
retour chariot. Si vous constatez que votre impri- 
mante écrit tout sur la même ligne, ajoutez les 
ordres suivants 


392 CALL TEST 
394 LD A,OAH 
396 LD (37E8H) ,A 


La version assembleur ci-dessous a été prévue pour 
une mémoire de 48K. Pour ceux qui possèdent un 
assembleur mais moins de mémoire, il suffit de 
modifier la valeur ORG en conséquence. 

En l'absence d'assembleur, il est aussi possible 

au moyen des utilitaires DEBUG ou TBUG, d'entrer 

les codes hexadécimaux figurant à gauche du listing. 


Restent ceux qui n'ont ni assembleur ni moniteur, 
mais beaucoup de courage ... Vous pouvez traduire 
les valeurs hexadécimales en décimal et les entrer 
par un programme BASIC en "POKant" des DATA. A 
moins que vous ne vouliez écrire un petit programme 
qui vous permette d'éditer des routines assembleur 
directement en BASIC et de les sauvegarder. Dans ce 
cas, dommage que vous n'ayez pas encore STEP pour 
vous aider à sa mise au point ! 


Wolfgang Lauter 
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OO001 : TRACE BASIC PAS-A-PAS SUR IMPRIMANTE 

00002 :; COPYRIGHT TRACE ET KW. LAUTER 

OG003 ;: 
FFOQ 09010 ORG QFFODH 5 Adresse debut 
FFOC0 00 00020 FL8G DEFE Ü 5 Indicateur imprimante 
FFO1 00 00030 RES DEFE Ü 5: Sauue accu & 
FFO2 O0 00040 CTR DEFE O : Compteur Fin de ligne 
FFO3 ZAiE40 Q0050 INIT LD HL:{4C01EH) 5; Adr driver ecran 
FFO8& 2227FF 09040 LD {OUT+1):HL ; dans Out+i 
PROS 241DFF 00070 LE HL:DER : êdr debut de STEP 
FFOC 271E40 ODO080 LD {4D1EH):HL : = nouvelle adr ecran 
EROESEO 090990 RET 5; retour BASIC ou DOS 
FFIi0 3A1541 00100 LEE LE f:t411BH) 5 Flag TRON/TROFF 
FF13 FEO0 00110 CF Q : Voir si=0 
FF15 280F O01:0 JR Z:OUT 3 Si oui: Pas de trace 
FE 75 00130 LD A:C 3: carac 5 afficher 
FFA68S2b1FR ODi40 LD (BRES)rû 3: Sauvesarde 
PETER ENE 050150 Ë 3CH 5 Voir si < 
FF1D 2808 001680 JR Z7SETF 3 Si oui: sauter 
FFiF 3400FF 09170 LE Az: {FLAG 3 Indice impression 
FF27 FEOD O0180 CP (al 3 Voir si =0 
FF24 2007 G0190 JP N7Z:PRINT 5: Sinon: sauter 
FF£8 CD0D00 00200 GOUT CALL O0 3 Driver ecran normal 
FREPRES OGZ10 RET : retour RASIC 
FF28 3200FF TO?22UeSETE LE (FLAG) À À —-> Flag 
FF?2D CD73FF 00230 PRINT CBLL PES 1 Êprel test 
FF30 3A02FF 00740 LE f:{CTR: : Comrteur ligne -} À 
FF33 Céüi G0Z5Ù AGDE Ari 5 B=A+i 
RES es 2 026: 007460 LD {CTRI:À 5 Nouveau compteur 
FF38 SAOFF 00270 LD A: (ARES) 5 Carac 4 sortir 
FF3B 322837 G0280 LD 137E8H)i:û 5 imprimer 
ERSESRRESE 00290 CR 3EH 5 Voir si } 
FF40 CO 00300 BET HZ 5 Sinon: retour BASIC 
FFä&i 3E0û 00310 LD À:0 5 zen 
FF43 3200FF 00320 LD (FLAC) À ;: Flas = 0 
FF4è SAOSFF 00330 LE A:{CTR) : é=Comrteur ligne 
FF49 Céni 00340 ADD A:îi 3; Azñti 
FF4B FES4 00350 CF 54H 5 A=79 ? 
FF4D 380 00340 JR C:STOR 5 Sauter si < 
FF4F CD/3FF 00370 CALL TES : ârrel test 
FÉES EH 00380 LE 8: D5H : âcretour chariot 
PES 3FE0 37 00390 LE (37E8H) À 5: envoi imerimante 
PPS 3EC0 G0400 LD â:0 5: â=0 
(TE M PT 0904410 STOR LD {CTR):8 5: Comrteur lisne=0 
FFS5C 3GASOSE O04%0 W&IT LE fi: (3880H) 5 Indicateur SHIFT 
FRERE 00430 CP 1 Sn) es | 
FF61 20F9 00440 JR NZ:2WAIT : Sinon: boucle 
FF63 3E7F 00450 LD B:7FH 5 B=zualeur delai 
FF865 Défi 00460 WAITI SUE 4 5 âzñ-i 
FF&7 FEOD 00470 (Hi 54 0 5 Voir si À=0 
FF&9 20Fñ 00480 JE HEZ:UAITI 5 Sinon: boucle delai 
FF86E SASOSE G0490 WAIT? LD A:(3880H) 5 Indicateur SHIFI 
FF6E FEOU 00500 CR 0 5 Voir si = 0 
FF 70. CE 00510 RET 2 : Si oui: retour BASIE 
HRATUTERS 00520 JR WAITE 5: Reboucier 
FF73 3AE237 00530 TEST LD A:(37E8H) : Ê=temoin sortie ime 
FPFAGLCEZE 00540 HIT 7: 5 Voir si bit 7=i 
FPT ARE 00550 JR N7:TEST 5 Sinon: attendre (Bil=s 
FF7A C9 00560 RET : Fetour BASIC 
FFD3 00570 END INIT 


00000 TOTAL ERRORS 


32906 TEXT AREA BYTMES LEFT 
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essal 





Un programme 
pour faire parler 
votre ordinateur 





+ DIGITAL TALKER 

Apparat Inc, Denver USA 
disponible aux USA seulement 
Prix port compris : 38.75$ 


Ce programme extraordinaire n'est autre qu'un 
synthétiseur vocal, - rien que cela ! - ne nécessi- 
tant pour tout dispositif matériel qu'un banal 
amplificateur relié à la sortie cassette du TRS-80... 
C'est un programme au format binaire (mais contenant 
toutefois un peu de BASIC bien caché...), fourni au 
choix sur cassette ou disquette. Notre version, sur 
disquette, se charge sous DOS par : BOICE (c'est le 
nom du Monsieur qui a écrit le programme...). 





Après affichage du titre, le programme est en attente 
clavier. Alors on appuie timidement sur la touche 
"1" et l'on entend une voix légèrement enrouée (et 
même un peu asthmatique !) qui dit "OINE"... C'est 
très surprenant, alors on continue MENOURE 
Chaque chiffre composant un nombre quelconque est 
ainsi prononcé. Il est alors possible de frapper le 
signe de l'une des quatre opérations arithmétiques 
(+,-,* où /) suivi d'un second nombre. Après appui 
sur la touche "enter", le programme "prononce" le 
mot "EQUAL" ainsi que les chiffres du résultat... et 
en double précision, s'il vous plaît ! 

Le vocabulaire est limité aux dix chiffres, au point 
décimal, aux quatre opérateurs et au signe égal (ce 
n'est déjà pas si mal). Certains mots ne sont pas 
toujours très compréhensibles même s'ils sont pro- 
noncés avec l'accent de Denver, mais le résultat 

est assez stupéfiant. Bravo Monsieur Boice ! La 
documentation (une simple page de mise en oeuvre) 
nous précise que nous devrions bientôt recevoir des 
exemples d'application (horloge parlante ?) 


——_—————— Henri Frère 


qui 


LOGAWAL 


quatre ans d'expérience dans 


logiciel pour micro-ordinateurs 


LOGICIELS POUR MICRO- 
ORDINATEURS TOURNANT 
SOUS CP/M (Altos, Cromemco, 
Digital Microsystems, DSE, 
Dynabyte, Pertec, Tandy Mod 
I, TEI, Zenith-Heathkit, etc.) 


WALCORE: Programme 
conversationnel de gestion de 
fichiers. A la fois très perfor- 
mant et d'une grande facilité 
d'emploi. Clés d'accès instanta- 
né. Tris rapides. Chaque fiche 
peut contenir jusqu'à 500 carac- 
tères et 25 informations (numé- 
riques, alphanumériques, résul- 
tats de calculs internes, dates). 

2.400,- FF 


WORD-STAR: Le programme de 
traitement de textes le plus ré- 
puté. Contient toutes les fonc- 
tions habituelles d'édition et 
bien d'autres. Manuel en fran- 
çais. 3.400,- FF 


SUPER-SORT I: Programme de 
tri très évolué. Tri possible sur 
plusieurs fichiers, avec plu- 
sieurs clés et avec exclusions. 

1.800,- FF 


EW 
CALCSTAR: N : 3 
Gestion de tableaux financiers, 
statistiques, etc. Calculs en 
chaïne, simulations. Peut être 
combiné avec WordStar. 
1.950,- FF 


COMPILATEUR BASIC MICRO- 
SOFT - Version 5,3: Compatible 
avec Basic-80. Vitesse d'exécu- 
tion des programmes trois à 
trente fois plus grande. Instruc- 
tions CHAIN et COMMON. 
Comprend MACRO-80. 

2.400,- FF 


CBASIC 2: Semi-compilateur 
BASIC. Nécessaire pour l’utili- 
sation Ge nombreux program- 
mes d'application.  1.100,- FF 


BASIC-80, COBOL-80, PASCAL 
-80, FORTRAN-80, MACRO-80, 
EDIT-80, SBASIC, PEACHTREE 
INVENTORY, etc... 


LOGICIELS POUR TRS-50 
MODEL 1 


NEWDOS-80: Système d'exploi- 
tation très puissant compatible 
TRS-DOS. Possibilité d'usage 
simultané de lecteurs de dis- 
ques 35, 40, 77 pistes. Nombreu- 
ses fonctions BASIC et DOS 
supplémentaires. 1.250 FF 


COMPILATEUR BASIC TRS- 
DOS MICROSOFT: Fonctionne 
sous TRS-DOS. Compatible 
BASIC TRS-80 et BASIC-80 5.0. 
Vitesse d'exécution des pro- 
grammes trois à trente fois plus 
grande. 1.550,- FF 


WAL D-B: Programme conver- 
sationnel de gestion de fichiers. 
Tri et sélection sur tous les cri- 
tères. Sortie écran ou impriman- 
te (tableaux ou étiquettes). 
850,- FF 


RSM, GSF, BASIC LEVEL Ill, 
ELECTRIC PENCIL, SYSTEM 
DOCTOR, INFINITE BASIC, 


FORTRAN, WAL-FE, CP/M, etc. 


LOGICIELS POUR TRS-80 
MODEL II 


CP/M 2.24 LIFEBOAT: Système 
d'exploitation universel. Accès à 
plusieurs centaines de pro- 
grammes. Version européenne 
(50 Hz). 1.600,- FF 


R S M: Programme moniteur. 

Accès à la mémoire et aux sec- 

teurs-disques. Désassembleur. 
490,- FF 


MOD II UTILITY PACKAGE: 
Facilités supplémentaires pour 
le TRS-DOS. Back-ups vérifiés 
accélérés. Sauvetage des don- 
nées d'une disquette endomma- 
gée. 980,- FF 


WALCORE,  COMPILATEUR 
BASIC, GSF, DSM, BASIC 
CROSS REFERENCE UTILITY, 
etc... 


SC ER 
MATERIEL 


Distributeur officiel de: 


ZENITH-HEATHKIT: ordinateurs et terminaux à clavier AZERTY 
avec lettres accentuées. 


DIGITAL MICROSYSTEMS: les micro-ordinateurs haut de 
gamme (multiprogrammation). 


DIGITAL SYSTEMS EUROPE: le meilleur rapport qualité-prix. 
ES SN ee nl 


Les programmes et matériels présentés sont extraits de nos 
cinq catalogues disponibles sur demande: 
logiciels pour TRS-80 MOD 1 (1), TRS-80 MOD II (2), 
TRS-80 MOD Ill (3), CP/M (4), matériel (5). 


Tous nos logiciels peuvent être achetés par correspondance. 
Prix hors taxes modifiables sans préavis. 


————_———————————_—_—_— 


LOGAWAL - EUROPE 
200, avenue W. Churchill 
bte 22 - 1180 Bruxelles 
Belgique 


Tél.: (32 2) 347.47.06 





LOGAWAL - U.S.A. 

San Francisco 

Californie 

Tous logiciels américains pour 
détaillants européens. 
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professionnel 


ÉABOMINABLE 
MODELE 1 
DES NÉIGES 











Qui a dit que les ordinateurs individuels étaient 
surtout utilisés pour les jeux ? Ils peuvent aussi 
avoir des utiiisations professionnelles, telle celle 
dont je vais vous parler ici : la gestion de mon 
magasin de location de skis, situé dans les Hautes 
Pyrénées au Pla d'Adet. 


Lorsque les clients louent du matériel pour faire 
du ski, un certain nombre de problèmes peuvent se 
présenter, comme par exemple 


— les clients arrivent tous en même temps ... et 
repartent de même ; l'attente moyenne est générale- 
ment de l'ordre de vingt minutes, mais depuis que 
j'utilise un ordinateur, cette attente a été réduite 
à six minutes. 


- les factures des clients comportent parfois des 
erreurs inévitables dues à la bousculade ; l'ordina- 
teur a permis de supprimer ces erreurs. 


- quelques clients contestaient souvent de bonne foi, 
la durée du séjour, se trompant sur la date de 
départ de la location ; Ce problème a été éliminé 
l'autorité de la chose écrite ... par un ordinateur 
est un fait. 


Pour le loueur de matériel, outre les difficultés 
évoquées ci-dessus, des problèmes complémentaires 
se posent. Les tâches répétitives de facturation 
sont lassantes, car il faut pour chaque article 
calculer un prix tenant compte de la durée de loca- 
tion (barême dégressif) et de la catégorie du maté- 
riel. A la fin de la saison, il est nécessaire de 
reprendre les doubles de toutes les factures, et de 
reporter sur la fiche de chaque article, le nombre 
de jours d'utilisation. Cette dernière tâche a pour 
but d'optimiser le parc de location en permettant 
d'avoir dans chaque taille de skis ou pointure de 
chaussures, un nombre d'articles proportionnel à la 
durée d'utilisation de cette taille ou de cette poin- 
ture. 


L'ordinateur résoud tous ces problèmes. 
En pratique, les choses se passent de la façon sui- 
vante : Quand le client a choisi son matériel, on 


tape sur le clavier de l'ordinateur le nom et le 
prénom du client, ainsi que les numéros des articles 
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qu'il loue. L'ordinateur calcule ensuite les arrhes 
correspondant à la moitié du coût total de la loca- 
tion, pour la durée prévue par le client. L'impri- 
mante sort alors un "bon de location" nominatif, qui 
comporte numéros et descriptions du matériel, date et 
heure de sortie, et arrhes versées, s'il y a lieu. 
Le bon se termine par un message d'accueil et des 
informations diverses. En trois à cinq secondes, ces 
renseignements sont classés dans les fichiers sur 
disquette, et l'ordinateur est prêt pour le client 
suivant. 


Lorsque-le client ramène son matériel, il suffit de 
frapper les premières lettres de son nom. S'il y a 
homonymie, tous les noms commençant par ces lettres 
apparaissent sur l'écran, précédés d'un numéro 
d'ordre. La fiche client est ensuite affichée et la 
facture imprimée. Elle comporte les numéros et des- 
criptions du matériel, la date et l'heure de sortie, 
celles du retour, la durée et le prix de chaque 
article, le total, les arrhes versées et le solde 
dû. Un message modifiable à volonté termine la 
facture. Dès ce moment, les compteurs des articles 
venant d'être loués sont incrémentés du nombre de 
jours de sortie et tous les renseignements finan- 
ciers sont enregistrés en vue de l'élaboration du 
journal de caisse. Enfin, le fichier client est mis 
à jour (client soldé). 


Il y a bien entendu des cas particuliers, et nous en 
avons prévu un certain nombre, comme par exemple: 


retour d'une partie seulement du matériel, avec ou 
sans facturation partielle ; tolérance dans les heu- 
res de sortie ou de retour du matériel (par exemple 
pour un client prenant son matériel à 17 heures, la 
location comptable ne commence que le lendemain) ; 
possibilité pour le client louant du matériel, de 
placer ses achats sur compte ; possibilité de sortir 
un état du compte à tout instant : fonctionnement de 
l'ordinateur en caisse enregistreuse à 12 registres, 
pour les ventes seules. Ont été prévus également les 
contrôles classiques de saisie d'information : date 
et heure d'initialisation, sommes dépassant un cer- 
tain montant, etc... 


A la fin de la journée, ii y a impression du journal 
de caisse, puis réorganisation des fichiers, c'est- 


à-dire transfert des fichiers d'une disquette sur 
uné autre avec, au passage, élimination des clients 
soldés, impression d'une sauvegarde sur papier de 
tout le fichier client par ordre alphabétique, mise 
à jour de tous les compteurs. 


le prochain numéro 
(e [= 


Des programmes annexes permettent de faire des opé- 
rations statistiques, telles que contrôler les ro- 
tations et tracer les histogrammes de*fréquence de 
la durée de location en fonction des pointures de 
chaussures ou taille de skis. Ceci améliore l'opti- 
misation du stock comme indiqué plus haut. 


Le programme a été écrit en BASIC classique (inter- 
prété). Pour en augmenter la vitesse d'exécution, il 
a ensuite été compilé avec le compilateur BASIC de 
Microsoft. Le SED (Système d'Exploitation de Disquet- 
tes) utilisé est NEWDOS80 version 2. — 


Le matériel se décompose ainsi : modèle 1 avec 18K | 
octets, deux unités de minidisquettes Pertec 13 em 
et une imprimante Tekelec 8300 P, bi-directionnelle 
non-optimisée, fonctionnant à 125 caractères par 
seconde. 


sera disponible 
_mi-avril 82 


Naturellement, quelques difficultés ont été ren- 
contrées, et heureusement résolues. En période de 
pointe par exemple, le système fonctionne jusqu’à 

14 heures par jour, ce qui amène un échauffement des 
unités de disquettes et des lectures/écritures 
parfois difficiles. Un ventilateur de 20 watts a 
résolu le problème. Les parasites du courant secteur 
ont également occasionné de nombreux ennuis : 
désordre dans-le programme résident et, plus grave, 
effacement des fichiers si les parasites surviennent 
pendant une écriture sur disquette. Après plusieurs 
essais infructueux, un gros filtre Siemens, dans une 
gamme de fréquences inférieures à 1000 hertz, semble 
convenir. De mauvais contacts au niveau des connec- 
teurs reliant l'unité centrale du châssis de l'inter- 
face d'expansion occasionnaient eux aussi de gros 
soucis. Ces deux connecteurs ont été éliminés, et le 
câble a été soudé aux deux extrémités. Malgré tout, 
des messages "I/O ERROR" ou "DIRECTORY READ ERROR", 
rares et inexplicables, étaient encore constatés. 





pour 
mieux utiliser votre ordinateur 


abonnez-vous 


ou commandez le prochain numéro 
en utilisant le bon ci-dessous 


Avec l'aide d'un ami, j'ai finalement installé un 
"DATA SEPARATOR" dans l'interface d'extension, et les 
rÉSHCALSR SON iexcel lents MR Do, LE CG CN OR ne LR, SN Res I 
: d qe | BON DE COMMANDE 
A ma connaissance, ces problèmes-au demeurant faci- | S 
les à résoudre, ne font pas l'objet de conseils ou à retourner à TRACE, 8, rue St-Marc, 
de recommandations de la part des importateurs ou | 
| 














75002 PARIS 

fabricants des matériels en cause, ce qui est bien 
dommage . | 
Les problèmes que j'ai encore à résoudre sont : la | Nom : 
relative lenteur de l'imprimante, du fait qu'elle 
n'est pas optimisée et qu'elle ne comporte pas un | Profession : 
"tampon" suffisamment grand ; les coupures de cou- | 
rant, rares et courtes heureusement dans ma station eu 
(le secteur descend parfois à 50 volts !). | Adresse : 

| | Code postal : Ville : 


En conclusion, bien que l'ordinateur choisi ne soit 
pas de type professionnel, l'expérience montre qu'il 
peut le devenir moyegnant quelques a@jonctions in- 

dispensables. Si dou bien se plier à la dis- | 
Cipline qu'impose l'informatique dans la façon de 





O0 


[ Je désire recevoir le 
numéro 2 de TRACE 


Je désire m'abon- 


travailler, l'ordinateur fait gagner un temps pré- 
cieux au fournisseur comme aux clients (et l'on sait 
combien coûte l'heure de vacances aux sports d'hiver 
leur délivre des factures exactes et que l'on ne 
conteste pas. Enfin, il permet au magasin d'optimiser 
sa gestion, ce qui est une source tout à la fois de 
profit et de satisfactions intellectuelles. 


———————————— Jean-Fhilippe Maquaire 





(France 25 FF ; Bel- 
gique 170FB; 
Suisse 11FS; 
Canada 6.50$; 
Etranger 30 FF). 


TRACE N° 1 — Janvier 82 — 21 


ner à TRACE pour 1 
an, 4 numéros, en 
bénéficiant de votre 
tarif de lancemént 
(France 75 FF ; Bel- 
gique 500FB; 
Suisse 33FS; 
Canada 20 $ ; Étran- 
ger 90 FF). 


| 
| 
| 
| 
| 
| 
| 
| 
| Pays : | 
| 
| 
| 
| 
| 
| 


D Ci-joint mon réglement (indispensable). 








pour vos enfants 


Apprendre les 4 SF 


opérations ED) 









LA 
en pilotant 
une fusée 
Ce jeu éducatif est destiné à exercer les "petits" - comptabilisation du délai 
au calcul mental sur les tables de 1 à 10, en diri- de réponse et affichage, 
geant une fusée vers la case contenant la bonne - décollage de la fusée, 
réponse. - direction de la fusée par 
‘les touches; 

Utilisation 


- affichage du score. 
; sous-programmes 

1 - Choisir l'opération voulue : addition, sous- 

traction, multiplication, division, ou l'une des 


quatre opérations au hasard (?). 10-10 Gestion du clavier pour L'octet 14591 
L simuler la répétition permet de savoir 
2 - Choisir la table voulue de 1 à 10, ou l'une des automatique. si une touche 
tables au hasard (?). est enfoncée. 
: / 380-480 Distribution au hasard Si une case au 
3 - Choisir le délai de réponse, variant de lent de 10 nombres donnés, hasard est 


(1) à rapide (10), ou l'un de ces délais au 


libre, on y met 
hasard (7). 


le nombre sui- 
vant: 


4 - Choisir la difficulté de 1 à 4, (questions et 960-1060 Calcul de l'impact Avec l'adresse 

réponses plus ou moins dans le désordre), ou l'une de la fusée dans les d'arrivée de 

de ces quatre difficultés au hasard (7). cases réponses. la fusée, on 
regarde le 

5 - Répondre aux dix questions successives en nombre, 

guidant la fusée dans la case contenant la réponse 1100-1230 Affichage du score et 

supposée, à l'aide des touches marquées d'une question pour continuer 

flèche : 


ou non le jeu. 
> et € pour diriger la fusée 


, Remarques générales 
À pour Lancer La fusée "7 


Description du programme 


Ce programme de 123 lignes a nécessité 2 week-ends 
de travail (soit 10 heures), grâce à la facilité 
d'écriture du BASIC, englobant l'écriture et la 
LIGNES FONCTION REMARQUE mise au point. Cela représente environ 98 lignes 
par jour, soit à peu près une vitesse dix fois 
supérieure à la vitesse moyenne d'écriture en 
60-379 Ce sont lies menus offerts Si la réponse COoBOL. 

pour le jeu. est ? on 
choisit au 
hasard. 






————_—————“———_—— 








Bien que non structuré et écrit sans organigramme, 
ce programme a été mis au point facilement en uti= 


lisant la méthode itérative 
190-660 Déssin des cases conte- 


nant les réponses et 

rempiissage des cases 

avec les réponses. 
70-680 Ecriture de la question. 
690-870 Boucle principale du 


1) écriture d'un groupe d'instructions (une dizaine 
environ), 

2) essai immédiat; 

3) corrections, 

4) retour à 2) jusqu'à fonctionnement correct. 


programme 
- décompte du nombre de 
tours (10), Dominique Demis= 
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Co re AE 2 20 


reprendre 
Corsrisht 


OR X=1 TO 
15 NEXT Y:Xx 


les 


IF LENCKIS)I<30 Fee 
Di)=0 THEN K$S="":K= 
AU: FAR Y=10r00£: 


RETURN 


bles # 
Trace et Domi 


CLEAR 1000:RANDOM:CLS:PRIAT 


PRINT ” 
PRINT "1 : 
PRINT “2 
INT 

INPUT 42: 
IF A$="N" T 


ÉES=PRINT C 
455 VE 
BRENT ” 


PRINT ” 
PRINT 
PRINT 
PRINT 

INPUT ?” 
IFAñ="2t T 


IF 8£1 OR A4 THEN 


PRINT à704; 
PRINT * T8 
PRINT * Tou 


PRINT 
INPUT © 
D) 


CLS: PRINT 
PRINT 40° 

PRINT ° 
INPUT * 
ELSE V=VALi 

IF VET OR V 
PRINT 4384; 
FRINT ‘ F 
n 


CHOISISSEZ LE MENU":PRINT 

DIRIGEZ LA FUSEE PAR 

VOULEZ VOUS ESSAYER 

HEN END 

HR${23):PRINTIPRINT "VOULEZ VOUS 
SOUSTRAIRE....{ 2 1° 
MUSTIPLIERSS 1269 jé 
DIVISER. 5... € 4°)" 
AU HASARD. .... sc 


VOTRE 


HEN Â=RND(4): 


BEEN CHMESTE.S.. 
+ÉS LES TABLES... 


VOTRE 
ELSE E=VBL(IES) 
IF B£1 OR Bii THEN GOTO 


CHR$(23): 
VEFESSE 


NES mp 


VOTRE CHOTX 


iVS)} 


+10 THEH 


H 3 


GOTG 3 


LE / DUR-DUR 
BSé 


CHOIX 
GOTO 
GOTO 40 


Pre 


duissnt une fusée... 
58 Desninierse 
KHS=kK1S:K=8SC(KS: 


PRINT Q(X-1)#6+Y+1:CHR#( 


CHR$(23): 
JEU MATHEMATIQUE 


FsPRINT 


"3 
£ 


CHOIX ” 


210 
RAPID 
vs: 


ES:IF 


FHASIPRINT 
210: 


EBSE 


+ 
} 


{ 


ue *# in A 


PRINT 


ä 40)° 
F* PRINT: PRINT 


H):4 


BDDITIONNER. 


AV Er fé; 


] 
1 
Ti 
pl 
tr 
H 
TI 
il 
fl sils 


THEH V=RND(ID:S: 


PRINT RD. st LIRE 4 RÉ sPRINT PRIHT 
INPUT VOTRE CHOTI "5DS:IF Dé="7" THEN D=RND(4):C 
OTO 4SO:ELSE D=V£L(DSé) 
IF D£éi OR Dé THEN GOTG 320 
GOTO 490 
FOR X=1 TO i0: BiE£i=0Q:C(K)=0: NEXT * 
FOR X=i TO 10 
Y=RND({10: 
IF C$="Cc" THEN GOTO 450 
IF BCY)£FD THEN 410 
ACYI=ALIX) : AGIT) =8T(E) GOTS 4257 
IF C(Y)<50 THEN 410 
CINE CTORIM EME CAEN 
NEXT X# 
FOR £=1 TO 10 
IF C$="C" THEN CttxX)=C(xX) CZ{XI=CS{X) ELSE Âi(KI=81X*x) 
A2(X)=43X) 
NEXT X : RETURN 
CLS: REN #HS#HKKEKHEERELERLSESESEREECRITURE DEC DASES 
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500 FOR X=2 TO 194 STEP 192 
51 


2310 PRINT 9X:STRINGS(60:CHRS(I14D))S:NEXT X 
520 FOR X=886 TO 126 STEP &: PRINT àX: CHR#(149)5: NEXT X% 
2330 FOR X=130 TO 190 STEP 8: PRINT aX:CHR$#i149)35: NEXT * 


340 FOR X=1 TO 10 


55 IF À>2 GOTO 590 
560  REM ######4ERRUEURUXSE LES — 


570 A(X)=B+X: IF A=1 THEN A1(X)=A(X):C1(X)=X:GOTO 610 
580 AlCX)=X: Ci(X)=A(X): GOTO 610 

590 A(X)=B#X: IF A=3 THEN A1(X)=AtX): Ci(X)=X: GOTO61D 
bDD. —…AHCX)=X5. CAIXO=AURE COTE TO 

DID © HPCX)EXECAINI=X = NEXT2X 


620 IF D>2 THEN C$="": GCOSUB 380 FE 

630 IF D=3 OR D=4 THEN C$="C": GOSUE 380 

640 REM ##H#XEEEEXEEEEEEERESSECRITURE DES CIBLES 

50 PRINT d64;""3: 

CTI) FOR X=67 TO 121 STEP & : PRINT &GX:A1ii(X-601/4)5: NEXT X 

870 PRINT 0905370 FEEDS } en 

880 IFA=1 THEN S$="+":S1=E: ELSE IF 4=2 THEN Sé="-":52=p: ELSE 
IF À=3 THEN S$="+":91=B: ELSE S$="/":02-8 

&90 SC=0: REM £###£#242R£87 DL SCORE £s£4282xz 


700 GOTO 730 

710 PRINT QF:CHRS#(170):CHRSCGATAISEPRINT GF-83;: CHRSCI4S 3 2RETUR 
ul 

720 PRINT @FP:" "3:PRINT aFF-63; "32 RETURN : REM +##EFFACE 

F30 FOR N=1 TO 10:REM xx+sNBRE GE TGLES $ 

740 F=-923: FP=923: FH=Q: FVsQ: BD=SSé: BC=ES7: COSUE Fil 

TÉSDIE IF À=1 THEN S2=Ci(Hi: ELSE IF &=2 THEN SI=Ci{H}:ELSE IF &= 
3 THEN S2=CI(N):IELSE Si=CciiNi: 

780 PRINT 91012; 515" ":559$:" ":52; 

770 FOR T=25#iii-V)i TG O0 STEP -i: REM sessesssTEMPGRISE 

780 PRINT G9607" #x#":7:"#x#x": 

790 GOSUR 20: REM REHELXEECLAUNIEREERESEE 

800 IF K=0 THEN GOTO 889 

810 IF K=91 THEN COSUR ESD:COTO 870: REH sessssTDECOLACESESXE 

820 IF KES AND K£}S THEH GOT 840 

830 IF K=8 THEN FH=-i: ELSE FH=+i 

84 FP=F: F=F+FH:IIF F<BG THEN F=<BC:IELSE IF FHELD THEN F=Br 

850 GOSUR 720: GOSUE 7i0: CGTO S4û 

880 NEXENT : , 

870 NEXT N: REM x£xsesxxsss PIN DES BGUCLES 

880 GOTO 1070 sSREM xéerskesxsss SCORE £H4K42445%%% 

890 Fy=-éé A 

S00 FOR H=i TO 

910 BG=BG-64:ED=BD-643:FH=0 

920 GOSUE ?0:1F K=D0 GOTO 930: ELSE IF K=8 THEN FH=-1: ELGE IF 

K=S THEN FHz=i 

230 FP=F: F=F+FVU+FH:s IF F£BG THEN F2<BG:ELSE IF FHEBD THEN F=<ED 

840 COSUEB 720: GCOSUR 710 

950 NEXT H 

560 REM +###xxxz CALCUL DE L IMPACT #+£#sss#s 

970 FI=INT((F-257t:/6) 

9850 IF CZ(N)ERAZIFIN THEN A0GO:REM #44 TOUCHEXS#S 





Hoi 


290 SC=SC+1:FOR 2=1 TO 3: GOSUR 1000: NEXT Z: GOTO, un 0 

1000 FOR X=404 TO 488 STEP é64: PRINT GX2STRINGS(30;"#")5: NEXT 
X 

1010 PRINT 8 534:° ER 4 V 0 HOROUEC RE 

1020 FOR X=5986 TO 460 STEP 64: PRINT GY:STRINGS(30:"+«")3:NEXT X 


1030 FOR X=1 TO 1 HEXT A 
1040 FOR X=320 TO 704 STEP 64:PRINT GX:STRINGS(60:" hsENEXT X 


17 
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1050 FOR X= 1 TO 10: NEXT X: RETURN 
1060 RETURN 


1070 REMX####X##HEEECCORELEXELEEESES 
1080 CLS: FRINT CHR#(Z3)3:5=11-5SC 
1090" ONCS GOSUR 110971110r111207113n07t140:115071160: 117071180714 


90:1200: GOTO 1210 
1100 PRINT “HOURRA !'1 10 SUR 10°: RETURN 
1110 PRINT ” BRAVO #xx 9 SUR 10 PRESQUE PARFAIT": RETURN 
1120 PRINT "FELICITATION === B SUR 19 === “: RETURN 
1130 PRINT “ TRES BIEN ### 7 COUR 10 ### ":RETURN 
1140 PRINT “ PAS MAL >>> 6 SUR 10 <<<": RETURN { 
1150 PRINT ” CORRECT ... 5 SUR 10 ...": RETURN 
1160 PRINT “ 754 SUR 10 :33 UN TOUT PETIT EFFORT ET CE SER& € 
ORRECT':RETURN 
1170 PRINT “/// 3 SUR 10 /// RECOMMENCEZ À JOUER ":RETURN 
1180 PRINT " 7??? 2 SUR 10 777 VOUS AVEZ GAGNE LE DROIT DE REJOU 
ER 10 FOIS": RETURN | 
41490 PRINT “'11 4 SUR 10 t!11 VOUS DEVEZ REJQUER 100 FOIS !li1sR | 
ETURA 
1200 PRINT “ --- DO SUR 10 --- EXPLOIT RARE BRAVO” 
1210 PRINT : INPUT "VOULEZ VOUS REJOUER (0 / MN): 
122 IF AS£D>"N" THEN 120 
1230 END 








Un programme, 
cinq dés, 
six joueurs 








C'est un jeu de dés ayant quelques ressemblances nouveau tour. Bien évidemment, les points sont 
avec le Yam, et dont nous ne savons pas le nom cumulés. Dans le cas d'un triplet ou d'une suite, 
exact. Il se joue avec cinq dés, tout au moins dans il est obligatoire de rejouer. Ordinairement, la 
sa version originale. Les règles sont fort simples : partie se joue en 5000 points. 

on lance les cinq dés et on observe les résultats. out cela paraît compliqué mais le mieux est 

Le 1 compte pour 100 points et le 5 pour 50 points. d'apprendre les règles avec le programme .... 
Trois dés d'une valeur identique (triplet) valent Le programme BASIC décrit ci-dessous respecte les 
100 fois cette valeur (3 dés de 6 valent 600 par règles que nous venons d'exposer et calcule les 
exemple), avec deux exceptions toutefois : le points automatiquement. Il accepte jusqu'à 6 
triplet de 1 vaut 1000 points et le triplet de 2 joueurs. Dans le cas ou vous êtes trop fatigués 
annule tous les points acquis précédemment. La pour jouer, il accepte même de prendre les 

suite (1,2,3,4,5 ou 2,3,4,5,6) vaut 1000 points. décisions à votre place ... Mais commencez d'abord 
Toute autre combinaison n'au aucun effet et compte par prendre la décision de frapper la "petite" 
pour zéro point. liste du programme au verso ! 


Si le lancer de dés ne donne pas l'une des figures 

exposées ci-dessus, on passe au tour du joueur 

suivant. Dans le cas contraire, le jeu en cours 

peut se poursuivre (selon la volonté du joueur), 

avec les dés non significatifs. Dans le cas où les 

cinq dés sont (ou sont devenus) significatifs, on 

peut en rejouer la totalité et repartir pour un ee JP du Tillet 
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10 " jeu de cina DES 
20 ? COPYRIGHT TRACE ET L'AUTEUR 
30 < 





40 CÉSMSNRRINT NA 1DN 7 CREER EE UE NU 1HbA = COTEN CS DAEMS KERRE 
{ # « PRINT : PRINT : DIM A(12) : RANDOM 
C& 50 PRINT “Valeur des roints :* 


7% 650 PRINT "- 1 vaut 100 points: 5 vaut 50 points” 
70 PRINT “- Une suite (1 a 5 ou 2 a 6) vaut 1000 points” / 
80 PRINT "- Un triplet vaut 100 fois la valeur des DES sauf” 
90 PRINT “ le trirlet de 1 sui vaut 1000 points” 


100 PRINT “- Un triplet de ? annule le total seneral” 

110 PRINT “Dans le cas d'une suite ou d'un trirlet: le reste” 
12 PRINT "des DES est reJjoué automatisauement.” 

130 INPUT "Pret" :; C$ 

140 CLS : RESTORE 

150 DATA ON CERN EL 6 7 681 82 ; "100 


180 FOR X=8 TO 68 = SET(Xr4) à: SET(X:9) =: NEXT X 
170 FOR X=82 TO 101 : SET(X»4) ? SET(X:9) : NEXT X 
180 FOR A=1 TO & : READ X : FOR Y=4 TO 9 
190 SET(XIY) : SET(X+1>Y) : NEXT YrA > 

Ÿ 200 PRINT 9269: "Valeur des DES" : PRINT 4295: "Total partiel” 
210 PRINT 93937 ‘Joueurs: x Cobatixe 


220 GOSUB 670 : INPUT “Nombre de roints de la partie" 35 Z 

230 GOSUB 670 : INPUT "Etes-vous tror fatisué pour jouer” 5: FA$ 
240 GOSUB 670 : INPUT “Nombre de Joueurs (1 à 6)" 3 N 

250 IF N>é OR N<=0D GOTO 240 

2860 FOR A=1 TO N : GOSUE 670 : PRINT "Nom du joueur" 3; À 3 

270 INPUT À& 

280 PRINT 4(369+b64%û)  A$3 : PRINT TaR(23) "+ (Eee 

290 NEXT À 

300 FOR A=7 TO 1% : AtA)=0 : NEXT À : J=0 

310 J=J+1 2 IF J>N THEN J=1 





320 FOR A=1 TO N : PRINT a387+64#h:" " 3 : NEXT À 
= 3930 A=18+3%J : SETtéhrA) 3 SET(brA+1) 5 F=0 : F=0 : COSUR 480 
340  GOSUE 870 : PRINT “On y va 7?" : : COSUB 690 : 
350 IF C$é="N" THEN 340 $. 
360 R=5 : D=5 LS 
370  I=0 : S=0 : F=0 : FOR Aâ=1 TO 4 : AtA)=0 : NEXT À > 
380 FOR A=1 TO D : V=RND(é6) GR 
390 PRINT 4178+8xû 7 V3 : A(V)=ACVDEN ? . 
; IF A(V)DZEV THEN S=V > 
IF A(V)3U THEN I=i 
NEXT A : FOR A=D+1 TO 8 : PRINT @178+6x0 à " " ; 
NEXT à : D=R : IF R<>S G010 450 
IF D=5 AND 1=0 AND (A(1)=0 OR A(6)=0) THEN P=P+1000 : GOSUER 
880 : GOTO 40 
IF S=0 GOTO 520 
GOSUB 470 : PRINT "Bravo... triplet...!”.4 
FOR A=1 TO 1000 : NEXT À 
IF 5=2 THEN P=0 : Alh+j)=0 : PRINT "...Malheur !!° : FOR A=1 


TO 600 : NEXT À : GOTO 380 
IF S=1 THEN P=P+1000 : COTO 310 
P=P+100#5S 


R=R-3 : F=1 : A(S)=A(S)-3%5 US 
P=P+10#A(5)+100%A(1) : R=R-Ai1)-à(5)/5 3 


J 
IF D=R THEN P=0 : GOSUE 8680 : GOTO 580 
GOSUB 680 : IF R=0 THEN R=5 

D=R : JF F=1 GOTO 370 
-GOSUR 670 : PRINT "On continue 7°" 

GOSUB 690 : IF C$="0" GOTO 370 
Atb+J)=Atb+J)+P ? PRINT 4409+864#%)J 2 A(é+I):? 
GOTO 830 

GOSUR 470 : PRINT "Brauo..., une suite !°; 
FOR â=1 TO 1000 : NEXT à : GOTO 340 

IF Atb+l)<7z GOTO 310 

GOSUB 470 : PRINT "Vive le vainaueur.,. .!°? 
INPUT “Une autre partie ‘ : C$ 

CES OT RCE COCO) NNEBSENEND 





PRINT 4832 : CHR#(90)3 : RETURN 

PRINT 4170 : ” sos PRINF- 2170 72 Pur = RETURN 

IF Fâ$="0" THEN 700 ELSE CS=INKEYS : IF C$="" THEN 8970 ELSE 
PRINT C$ : : RETURN 

700 FA=RND(2) : IF Fâ=1i THEN C$="0" ELSE C#="H" 

710 PRINT C$ 3 : RETURN 
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poquetite 





Ne perdez plus de temps 
pour gérer vos fichiers 





Les instructions de gestion de fichier (PRINT# 

et INPUT#) du poquette PC1211 constituent l'un des 
points les plus intéressants de cette machine... 

à condition de bien savoir les utiliser. 


Quelles sont donc leurs propriétés ? 


Les instructions PRINT# et INPUT# sont toutes deux 
des instructions d'entrée/sortie. L'exécution du 
PRINTH provoque une "sortie" de données dans le 

sens ordinateur-magnétophone (via l'interface) ; 

à l'inverse, INPUT# provoque une "entrée" de 
données. Dans la plupart des BASIC, de telles 
instructions ne portent que sur un nombre limité 

de variables, très exactement toutes celles figurant 
sur la ligne programme. Mais ici, les données 
concernées sont toutes les variables dont l'exis- 
tence est possible (mémoire souple), même si celles- 
ci n'ont pas été affectées. L'ensemble de toutes 

ces données constitue un fichier. Chaque enregistre- 
ment est baptisé avec un label qui spécifie le nom 
du fichier : PRINT4# "LABEL". Le nom accompagnant 
l'instruction INPUT# devra correspondre à ce même 
label pour que le fichier puisse être transféré en 
mémoire. 


Ces deux instructions peuvent être suivies d'une 
variable 


100 PRINTH "LABEL" ; A(26) 


L'exécution de la ligne 100 provoquera l'enregistre- 
ment du contenu de la variable A(26) et de TOUTES 
les suivantes. Que vous écriviez un programme uti- 
lisant une ou plusieurs dizaines de variables, la 
longueur du fichier créé sera la même. Ce manque 

de souplesse n'améliore en rien la vitesse d'exé- 
cution, déjà lente, de la machine. 


Mais alors, comment procéder pour enregistrer 
uniquement le contenu des variables intéressantes ? 
Le problème ne se poserait pas si, de même que la 
première variable, la dernière pouvait être précisée 
dans l'instruction. Il faut en prendre son parti, 

ce n'est pas le cas : par construction, la dernière 
variable est définie comme étant celle dont l'indice 
est le plus élevé possible de la mémoire souple. 
C'est donc cette constante qui doit servir d'origine 
aux indices de variables à enregistrer. 


Mais illustrons ce propos. L'exemple de programme 
ci-dessous utilise cette méthode pour stocker quatre 
variables. Celles-ci portent les indices X, X-1, 

X-2 et X-3, la variable X contenant le nombre de 
variables dont l'existence est possible. L'exécution 
de l'instruction PRINTH# suivie d'une variable dont 
l'indice est égal à X-3, provoque l'enregistrement 
des quatre variables, et d'elles uniquement ... 


Analysons en détail ce programme. Son but est 
d'assurer l'enregistrement ou la lecture-recherche 
d'un compte en banque (menu de la ligne 20). Chaque 


x 


variable dont le contenu est destiné à former "le 





fichier" porte un indice X DECROISSANT. La valeur 
initiale de X est calculée dans un sous-programme 


dont le label est "X" (ligne 290). La ligne 300 est 
incomplète : les trois points doivent être 
remplacés au dernfer moment par le nombre de 
mémoires disponibles. Cette valeur est obtenue avec 
la commande MEM. J'insiste : il vous faut taper ces 
trois points à l'entrée de votre programme, et ne 
les remplacer par la valeur donnée par MEM qu'au 
DERNIER MOMENT : et, bien sûr, ne pas oublier de 
changer cette valeur à CHAQUE modification qui 
altère par conséquent la valeur de MEM. Si vous 
respectez parfaitement l'écriture de l'exemple 
fourni, MEM vous donnera 107. Si ce n'est pas le 
cas, remplacez les trois points par votre propre 
valeur. Le nombre 26 (mémoires réservées) est 
ajouté à cette valeur pour obtenir l'indice final. 
L'exécution de la ligne 150 a pour but de stocker 
le contenu des quatre variables. 


REM"COMPTE EN BANQUE” 
INPUT'ENREG(1) QU LECTURE(2)7"3} 
IF I=2 GOTO 170 
REM"ENREGISTREMENT DES CHEQUES" 
GOSUE x” 
INPUT'NUMERO DU CHEQUE?"3;A(X) 
X=X-1 
INPUT'DATE JJMMAA"3;A(CX) 
X=X-1 
INPUT'LIBELLE MAXI 7 CAR. :"3A$(X) 
X=X-1 
INPUT'VALEUR ?"3A(X) 
INPUT'CASSETTE PRETE?":B$ 
IF B$="NON" GOTO 130 
PRINT#"CHEQUE”":A(X) 
GOTO 20 


REMLECTURE:RECHERCHE D'UN CHEQUE” 
INPUT'NUMERO DE CHEGUE"3:N 
INPUT'CASSETTE PRETE?":8B$ 

IF H$="NON" GOTO 190 

GOSUB"X" : X=X-3 
INPUT#"CHEQUE":A(X) 

IF A(X+3)<>N GOTO 330 
PRINT"NUMERO":N 

PRINT'DATE”;AtX+2) 
PRINT'LIBELLE";A#${X+1) 
PRINT'VALEUR”":ACX) 

GOTO 20 

"X" 3 REM"INITIALISATION DE L'INDICE” 
X=...+24 3 RETURN 


L'indice X, après trois décrémentations, définit 
d'une part la première variable de l'enregistrement 
d'autre part la dernière variable du fichier. Il 
convient de remédier à cette petite inversion avant 
l'opération de lecture. C'est le but de la ligne 
210. 


Ce petit programme a la simple prétention de servir 
d'exemple. Il ne deviendra efficace que s'il est 
intégré au sein d'un programme plus complet (gestion 
des comptes du foyer par exemple) ... A vous de 
jouer. 

Jean-Pierre Richard 
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utilitaire 





Conversion 


des codes binaires 
en DATA BASIC 





Il arrive parfois que l'on veuille incorporer une 
routine" (un sous-programme) en assembleur dans un 
programme BASIC. Généralement, la méthode la plus 
simple est de coder en décimal toutes les données 
de cette routine, et de les placer sous forme de 
DATA dans le programme. Il suffit ensuite, au moyen 
d'une boucle READ/POKE, de charger ces données en 
mémoire. 


Dans la plupart des cas, la routine aura été consti- 
tuée au moyen de l'éditeur /assembleur EDTASM, où 
tout simplement entrée "à la main" en hexadécimal, 


routine en code machine, mais de données en ASCII). 


Au lancement du programme, la première ligne de 
l'écran affiche le message 


K#% BINAÏIRE —->DATA *** 


Le programme nous demande le numéro que nous voulons 
donner à la première ligne de DATA. Répondons 1000 
par exemple. Après avoir fourni les deux adresses 

de début (3C00) et de fin (3C3F) de la zone à con- 
vertir, le fichier portant le nom DATA/DAT est 
constitué et placé sur disque. Le voici 





avec les programmes moniteurs T-BUG ou DEBUG. 
Toutefois, lorsque la routine est longue, la tâche 
consistant à coder chaque valeur en décimal devient 
assez pénible. Or, il se trouve que les ordinateurs 
sont justement 1à pour nous éviter les tâches pé- 
nibles : il nous faut donc profiter d'eux, avant 
qu'ils ne profitent de nous ! 


Le but de ce programme sera de convertir en instruc- 
tions DATA, une zone mémoire déterminée par une ad- 
resse de début et une adresse de fin, et de placer 
ces DATAsS sur disque. Par l'instruction MERGE, il 
sera ensuite facile d'incorporer les lignes BASIC 
au programme principal. 


Prenons un exemple. Supposons que la zone à traduire 
se trouve comprise entre les adresses mémoire 3CO0H 

et 3C3FH, et c'est celle-ci que nous allons convertir 
en DATA (dans le cas présent, il ne s'agit pas d'une 
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Ce fichier peut être chargé en BASIC par la commande 
LOAD "DATA/DAT" ou MERGE "DATA/DAT" si nous voulons 
l'ajouter à un programme existant. Il suffit par 
exemple de le compléter par 


10 CLS 
20 FOR AD=8&H3C00 TO &H3C3F 
30 READ À 


40 POKE AD’AÀ 
50 NEXT 
RUN 





et nous verrons notre texte initial apparaître de 
nouveau sur l'écran. 








10 * PROGRAMME DE CONVERSION DE 200 GOTO 130 














BINAIRE EN DATA BASIC 210 PRINT#1; 

20 * COPYRIGHT TRACE ET 4. PINAUD 220 CLOSE 
30e 230 PRINT : PRINT "FICHIER SAUVE 
#0 CLS SOUS LE NOM : DATA/DAT" 
930 PRINT TAB(10) "+xx B I N A I 240 PRINT 

RE RTE *#x" 250 PRINT "CHARGEZ VOTRE PROGRAMME 
80 PRINT : PRINT PRINCIPAL PAR ‘LOAD'* 
70 INPUT "PREMIER # DE LIGNE DATA 360 PRINT : FRINT "PUIS VOS DATA 

"3 NL PAR MERGE'” 






80 PRINT "ADRESSE DEBUT BINAIRE 270 PRINT : PRINT : PRINT 
(HEXA)?"3; : GOSUB 300 : DD=N 280 END 
90 PRINT "ADRESSE FIN BINAIRE 2900 

















(HEXA)?": : GOSUR 300 : FD=N 300 ‘ SAISIE ET CONVERSION HEXA--3 
100 LG=FD-DD+1 DECI 
110 OPEN"0":1:"DATA/DAT" 305 
120 PRINT#12NL: DATA’: 310 N=D : PRINTCHR$(14): 
130 PRINT#1:PEEK(I+DD);: 320 AS=INKEYS : IF A$="" THEN 320 
140 I=1+1 330 IF ASC(A$)=13 THEN PRINT : 
150 IF I=LG THEN210 GOTO 360 
160 IF I/10-INT(1/10)=0 THEN 190 340 PRINT À$3 : IF A$>"9" THEN 
170 PRINT#1:"3"3 A$="1"+CHRS(ASC(AS)-17) 
180 GOTO 130 350 N=16XxN+VAL(AS) : GOTO 320 






190 PRINT#1:CHR$(13)5 NL+I: "DATA":360 IF N>32767 THEN N=N-65534 
370 RETURN 









Ce programme est surtout intéressant pour les pos- CFETCH (chargement d'un programme cassette à la suite 
sesseurs de disquettes qui bénéficient de la direc- d'un autre). 

tive MERGE. Néanmoins, et après quelques aménage- 

ments, il peut être utile aux utilisateurs de cas- : 

settes, surtout si ceux-ci disposent du programme EEE Ur aa ba ti lel 





expérience 





Moi, j'utilise CP/M 





Il existe plusieurs versions du célèbre SED (programme est adopté par pratiquement tous les constructeurs 

de Système d'Exploitation de Disquettes) CP/M, adap- d'ordinateurs individuels basés sur les microproces- 

tées à la plupart des ordinateurs individuels du j seurs 8080, 8085 et Z80. C'est-à-dire beaucoup ! 

marché. J'ai équipé mon Modèle 2 d'une version spéciale Vous savez que la structure logicielle des enregistre- 

de CP/M, la version 2.2.5 développée aux Etats-Unis ments magnétiques sur une disquette peut être très 

par la société Cybernetics Inc. variée : Un programme écrit en BASIC sous TRSDOS et 

Pourquoi l'ai-je acheté ? Quels avantages offre ce sauvé sur une disquette initialisée avec TRSDOS ne 

SED par rapport au TRSDOS fourni en standard avec le pourra être utilisé par un ordinateur fonctionnant 

modèle 2 ? sous un autre système. Ce qui est intéressant dans 
CP/M, c'est justement que le support (disquette 8 

Eh bien, je l'ai acheté pour deux raisons : la pre- poucés simple face, simple densité) tout comme la 

mière est que je désire que les programmes que je Structure logicielle des enregistrements ont été adop- 

développe soient transférables facilement sur le tés par beaucoup de sociétés, ce qui les place quasi- 


plus grand nombre possible de machines. Or, CP/M ment au niveau d'un standard. 
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Le Modèle 2 possède des disquettes 8 pouces simple 
face double densité mais un utilitaire de CP/M 
permet de créer des disquettes simple face, simple 
densité conformes au standard. 


où peuvent être stockées des informations en attente 
d'entrée ou de sortie. Ceci permet une frappe beau- 
coup plus rapide au clavier et des impressions de 


textes alors que se poursuit simultanément l'exécution 
d'un programme. é 


La deuxième raison de mon choix est que CP/M 2.2.5 
structure les disquettes en 75 pistes contenant 

8 secteurs de 1024 octets, ce qui fournit 614400 
octets par disquette. TRSDOS offre, quant à lui, 
509184 octets par disquette. Si on considère la 


Ceux qui programment en assembleur apprécieront la 

possibilité sous TRSDOS d'appeler directement et trés 
facilement des sous-programmes du SED. Une soixantai- 
ne de tels sous programmes, appelés SVC (SuperVisor 

Calls, comme dans le SED des gros IBM !) sont claire- 
ment décrits dans la documentation. Pour faire la même 
chose sous CP/M, il faut se plonger dans une documen- 


Un livre pour débuter 


Un livre pour s'initier à CP/M : 
CP/M Primer, par Stephen M. Murtha et Mitchell Waïite, 
publié par Howard W. Sams & Co., 4300 West 62nd St., 


Indianapolis, Indiana 46268, USA. J'ai trouvé ce livre 
aux Etats-Unis, et je ne sais pas si l'on peut se le 
procurer en France. Personnellement, je trouve cet 
ouvrage (en anglais of course et hélas !) remarquable- 
ment clair. 


place prise par le système et ses utilitaires, 

on s'aperçoit que CP/M offre environ 28% d'espace 
disque en plus. C'est loin d'être négligeable quand 
on connait le prix d'un lecteur de disquettes 
supplémentaire. 


L'organisation des enregistrements en grands sec- 
teurs de 1K octets offre un autre avantage : les 
accès disques sont moins nombreux. Or dans l'exé- 
cution de programmes de gestion de fichiers, ce 
sont les accès disques qui prennent le plus de 
temps. Il y ad'autre part sur CP/M possibilité de 
créer des enregistrements de longueur supérieure à 
256 octets, ce qu'on ne trouve pas sur TRSDOS. 


Ce dernier offre toutefois un avantage que n'a pas 
CP/M : la présence d'un "Alternate Directory", 


c'est-à-dire d'un second catalogue des fichiers conte- 
nus sur la disquette. Ceci multiplie par deux les 
chances de "récupérer" une disquette partiellement 
endommagée. 


Pour ce qui est du transfert d'informations depuis 
l'ordinateur jusqu'à un périphérique ou un autre ordi- 
nateur, on trouve sous CP/M comme sous TRSDOS toutes 
les facilités : modification par logiciel des cadences 
et protocoles de transmission, génération automatique 
des sauts de page pour imprimantes, redéfinition des 
codes générés par les touches de fonction Fi et 

F2 du clavier, chargement et démarrage automatique 

de programmes à la mise sous tension, modification 

de la vitesse d'accès du lecteur de disquettes, exé- 
cution de séquences de commandes. 


Un avantage de CP/M : on peut simuler d'autres 
écrans que celui installé sur le Modèle 2, ce qui 
facilite les transferts sur d'autres machines de 
programmes comportant du semi-graphique ou de la 
gestion d'écran. 


Un énorme avantage de TRSDOS : une magnifique docu- 
mentation en français. On trouve également sur 
TRSDOS un "spooler", c'est-à-dire une zone mémoire 
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tation en anglais plutôt confuse, et donc d'accès 
nettement plus difficile. 


En conclusion donc CP/M offre plus d'espace disque, 
de souplesse d'adaptation, au prix de quelques in- 
convénients dus à son âge. TRSDOS est plus "moderne", 
beaucoup plus facile à comprendre et à utiliser, 
grâce à son excellente documentation, mais j'avais 
et j'ai encore besoin de plus de 500K par disquette 
et d'une transportabilité aisée. Sur ce dernier point, 


Une astuce sous CP/M 


On peut, grâce au programme utilitaire SET, créer une 
séquence de commandes qui sera automatiquement chargée 
au démarrage, comme cela se fait avec AUTO sous 
TRSDOS. Par exemple, la commande "MBASIC TOTO.BAS" 
verrouillée sur la disquette fera qu'à chaque mise 
en route du système, l'interpréteur MBASIC sera lan- 
cé et ensuite le programme TOTO.BAS sera chargé et 
exécuté. Problème Dans MBASIC la seule possibilité 
de revenir sous CP/M est d'exécuter la commande (ou 
l'instruction) SYSTEM. Mais cette commande est 
équivalente à un "départ à chaud" (warm start, 
contrôle-C sous CP/M). Ce qui va recharger MBASIC, 
TOTO.BAS, etc... Vous ne pourrez donc plus jamais 

sur une telle disquette revenir au niveau CP/M et 
donc par exemple appeler l'utilitaire SET pour mo- 


difier le nom du programme à charger ætomatiquement. 


Solution, dangereuse mais qui marche : charger SET 
à partir d'une autre disquette CP/M sans démarrage 
automatique de MBASIC. Modifier les commandes à 
exécuter et changer subrepticement de disquette 
avant de sortir de SET. Normalement CP/M refuse 
d'écrire sur une disquette sans avoir fait préalab- 
lement un CONTROL C. Mais les paramètres de SET sont 
toujours au même endroit sur toutes lès disquettes 
CP/M, si bien que dans ce cas, le changement de 
disquettes est accepté. Et vous pouvez /de nouveau 
avoir accès à CP/M sur la disquette contenant TOTO. 
BAS. Un conseil toutefois : ne faites pas le test 
suivant la commande MBASIC TOTO.BAS est donnée 
pour chargement automatique et le programme TOTO.BAS 
ne contient que l'instruction 10 SYSTEM. Cela 
boucle trop vite pour pouvoir s'arrêter sans rien 
casser. 





Tandy vient de commercialiser un utilitaire permet- 
tant de passer du format TRSDOS au format standard 
IBM mais je n'ai pas encore eu le temps de l'essayer. 
Ce sera pour une prochaine fois. 


Jean-François Poitevin 
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Cette rubrique, comme son nom l'indique, est destinée au bricoleur 
averti sachant utiliser un fer à souder et ayant un minimum d'expé- 
rience des circuits logiques. 


Vous avez probablement remarqué ces petits traits noirs se dépla- 
cant sur l'écran de votre modèle 1, surtout lorsque celui-ci 
contient de nombreuses zones 2rAphtques ? On les remarque surtout 
avec certains jeux comme le "Dancing Demon" par exemple. Certains 
logiciels qui utilisent un curseur clignotant (Scripsit) font 
aussi apparaître cette anomalie. Sur le Modèle 3, ce défaut a été 
corrigé et rassurez-vous, il peut l'être aussi sur le Modèle 1. 


À l'origine, il se manifeste lorsqu'un accès programme dans la mé- 
moire vidéo (lecture ou écriture) s'effectue pendant les temps où 
celle-ci est sollicitée par le système de rafraîchissement de 
l'écran, c'est-à-dire pendant ce que l'on appelle le "balayage". 
Le remède consiste donc à n'autoriser cet accès que pendant les 
retours de balayage du "spot", en "bloquant" le microprocesseur 
lorsqu'un accès intervient en dehors de ce temps. 


/ accés video retard NE PP 


VID x 


BLANK febur Spot balayage | retour sper 


NEWwV LD # LS C1 
WAITX Fee 


Trois signaux logiques seront exploités à cette fin : VID* indi- 
quant un accès programme dans la mémoire écran, BLANK donnant le 
départ d'un retour du spot et WAIT* utilisé pour bloquer le micro- 
processeur. Un diagramme des temps est donné en figure 1. 





Les circuits logiques mis en cause sont représentés à la figure 2, 
avant modification. Remarquez les deux points À et B : il faudra 
couper cette liaison pour y intercaler le montage de la figure 3. 
L'endroit précis où cette coupure doit être effectuée est repré- 
senté à la figure 4. Cette dernière devrait vous permettre de si- 
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eo TS 741574 


VID # Zé#/1,248/1 
36/2) à Z34/4 , 24 


Æ2U7 
en LS 
[Fis 3] 


tuer facilement la piste à inciser, sur la plaque ‘processeur". 
Assurez-vous que votre modèle correspond bien aux indications 
données. 





Les composants représentés par la figure 3 sont des circuits in- 
utilisés de votre ordinateur. Il faudra prendre soin d'isoler 
leurs entrées qui, à l'origine, sont reliées à la masse. Il est 
aussi possible d'acheter ces composants et de les monter sur un 
petit circuit imprimé séparé, ce que nous vous conseillons (si 
quelqu'un se propose de réaliser ce circuit, qu'il nous le fasse 
savoir, nous le signalerons...). Dans ce dernier cas, il doit 
être possible de simplifier la logique, afin d'éviter l'emploi de 
trois circuits intégrés différents. Nous laissons ces détails à 
votre appréciation ! 


Après avoir réalisé ce montage, vous constaterez que les petits 
traits noirs restent toutefois visibles sur les deux premières 
colonnes de l'écran, lorsque celles-ci contiennent des zones 
graphiques. Le problème est identique sur le modèle 3. Il faudrait 
utiliser un montage beaucoup plus complexe pour résorber intégra- 
lement ce défaut qui, réduit à ce point, passe totalement inaperçu 
Il suffit de passer le "Dancing Demon" pour s'en rendre compte et 
apprécier la différence ! 


Christian Cabrol 
——_—____————_————.…. __ -—hA]jain Pinaud 
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expérience 





Traitement de textes : 
maintenant, 


ça marche! 


Les systèmes de ‘'Wordprocessing" ne sont pas tout à fait adaptés aux trai- 
tement des textes français, c'est une découverte que tout utilisateur d'un 
TRS-80 peut faire à ses dépens. C'est la raison pour laquelle j'ai trouvé inté- 
ressant de raconter mon cheminement, du projet initial jusqu'à mon système ac- 
tuel en passant par des tâtonnements, des erreurs, des découvertes. C'est à 
l'aide de ce système que cet article, reproduit tel quel dans ce journal, a été 
redigé, 


J'ai commencé en 1979, au moment de l'apparition des premiers ordinateurs 
individuels en France. Si les problèmes que j'ai rencontrés subsistent en par- 
tie encore aujourd'hui, les caractères accentués par exemple, il y a tout de 
même maintenant des matériels, des logiciels et des informations plus facilement 
disponibles. 


Mon cahier des charges était précis 


- écran 80 caractères, 24 lignes, avec possibilités graphiques ou 
semi-graphiques; 

- clavier majuscules, minuscules; 

- deux unités de cassettes connectables simultanément; 

— imprimante de type IBM à boule; 


Pour l'affichage des caractères accentués à l'écran il n'y avait aucune 
solution en vue. J'envisageais, dans la mesure où l'imprimante que j'allais 
acquérir pourrait les imprimer, d'afficher et de mémoriser les caractères 
accentués sous forme de caractères graphiques. 
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Donc, en théorie, cette configuration de matériel, associée au program 
de traitement de textes que je projetais d'écrire, devait de manière relatiwe- 
ment satisfaisante répondre à mon besoin. 


= 


En recherchant une configuration correspondant à mon cahier des charges, %e 
découvrais qu'aucun des systèmes entrant dans la gamme des prix acceptables, ne 
possédait un écran 80 caractères. 


Ceci admis, le Model 1 niveau 2 avec 16 K de mémoire, représentait avec 
son écran de 64 caractères par 16 lignes un choix possible, à condition de lui 
adjoindre tout de suite l'interface d'extension pour pouvoir connecter deux 
cassettophones simultanément. La modification ‘minuscules'' n'existait pas en- 
core chez Tandy, mais on m'avait donné l'adresse d'une société qui se charge- 
rait de cette adaptation. Helas, le temps d'acheter mon TRS-80 et de prendre 
contact avec cette maison, elle avait cessé ces activités. 


N'ayant aucune solution de rechange du côté matériel, je décidais de dé- 
velopper quand même mon logiciel BASIC en faisant précéder sur l'écran toutes 
les majuscules par un pavé graphique. À l'impression, les caractères marqués 
seraient imprimés en majuscules, les autres en minuscules. 


Un autre problème était le traitement des fins de ligne. Je cherchais un 
moyen d'installer une sortie sonore indépendamment des deux interfaces de cas- 


settophone pour générer, à l'instar des machines à écrire, un son d'avertissement 
en approchant les fins de ligne. 


L'imprimante que j'avais commandée était un ancien terminal IBM recondi- 
tionné et connectable par interface RS-232. La date de livraison approchant, 


s 


j'installais dans mon interface d'extension la carte RS-232, Juste à temps pour 
recevoir une lettre m'annonçant que la machine que j'avais commandée ne pourrait 
être livrée. On me proposait à la place un modèle coûtant 4 fois plus cher, ce 
qui dépassait largement mes possibilités. 


Je continuais néanmoins à développer mon logiciel. A mesure que j'ajoutais 
des possibilités, je diminuais la vitesse de prise en compte des caractères 
frappés sur le clavier. Finalement, il devenait évident que le Basic n'était 
pas assez rapide pour cette application. 


La solution résidait dans l'assembleur. J'ai commencé par acquérir un 
livre pour étudier les possibilités du langage machine. Habitué à de grands 
systèmes, j'étais un peu dérouté par l'absence d'ordres de division, de multi- 
plication et de conversion de bases numériques. Je m'étonnais aussi de l'ab- 
sence d'une bibliothèque de routines d'entrée/sortie. Ecrire un programme de 
traitement de textes serait une opération de longue durée, mais je résolus de 
l'entreprendre. 


Malheureusement, il s'avérait impossible de charger la cassette avec le 
programme Assembleur que j'avais acheté. Les copies, qui m'ont été fournies par 
la suite, ne se chargeaient pas mieux, ni aucun autre programme système. Mon 
TRS-80 souffrait d'une maladie infantile courante à cette époque: les difficul- 


tés de lecture par le magnetophone. Heureusement ce problème à été réglé depuis 
sur les machines plus récentes par une modification de la MEM. 


Mon projet de logiciel était bloqué pour l'instant, 


Par contre, j'avais trouvé avec la Hl4 de Heathkit une imprimante dans mes 


+ 


L 
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prix. J'ai monté ce kit avec l'aide d'un ami expérimenté en électronique. Le 
montage, aidé d'une documentation excellente, ne comportait aucune difficulté. 


Passons sur les problèmes d'interfaçage qui m'ont occupé des semaines. La 
solution à depuis été décrite dans plusieurs revues américaines. 


La lenteur, et surtout le peu de fiabilité des cassettes m'avaient fin- 
alement amené à m'équiper de deux unités de minidisquettes. Mais il n'existait 
pas de programme assembleur en version disque. 


La sortie de Newdos+ incluant une version modifiée de Edtasm sur disquette 
apportait heureusement peu après la solution. Mais, impossible de travailler 
avec ce programme en mémoire en plus du DOS. Il me fallait ajouter 16K de mé- 
moire. 


La découverte d'Electric-Pencil, le premier programme de traitement de 
texte sur TRS-80 disponible en France, devait radicalement changer l'orienta- 
tion de mon projet: pourquoi sacrifier mes loisirs pendant des mois pour déve- 
lopper un logiciel qui existait déjà. 


La documentation accompagnant Electric-Pencil donnait en plus des infor- 
mations sur la manière d'installer une modification ‘minuscules''. Armé de mon 
fer à souder je me suis donc mis au travail ..., pour mettre en panne mon 
TRS-80: j'avais été trop long pour faire mes soudures, ce qui avait fait gril- 
ler un circuit mémoire. 


La partie clavier de mon TRS est restée en réparation pendant un mois. 
Quand je l'ai récuperé la modification "minuscules!" était enlevée, et les piè- 
ces correspondantes m'étaient rendues separement dans un petit sachet. 


Etant entêté de nature j'ai aussitôt recommencé et j'osais à peine le 
croire, cette fois tout fonctionnait à merveille. Cette modification s'effectue 
en installant une mémoire MEV supplémentaire, un commutateur majuscules seules 
/ majuscules + minuscules et une touche de contrôle. Rien à changer au généra- 
teur de caractères qui contient d'origine des minuscules, même si elles ne sont 
pas très jolies. 


Je pouvais enfin commencer à utiliser Electric-Pencil. Ce que j'appréciais 
le plus, c'était le fait qu'il ne soit pas nécessaire de se préoccuper de la 
fin des lignes. Dès qu'un mot dépasse la fin de la ligne il est automatiquement 
reporté au début de la suivante. Ce dispositif est maintenant tout à fait banal 
dans les systèmes de traitement de textes. 


Concernant les corrections sur le texte, Electric-Pencil m'apportait les 
facilités que j'attendais : déplacement libre du curseur sur tout le texte dans 
les 4 directions, insertions et suppressions, permutations de parties du texte, 
recherche et remplacement automatique de mots. 


Il restait cependant un problème concernant l'impression: il n'y avait pas 
de gestion de l'interface RS-232 dans ma version d'Electric-Pencil. J'ai donc 
réalisé un programme formateur en BASIC pour imprimer les textes crées et mé- 
morisés sur disquette par Electric-Pencil. 


A force de l'utiliser, je devenais plus sensible aux lacunes d'Electric- 
Pencil: il est facile de perdre des caractères en frappant à une cadence 
moyennement rapide, notamment au moment des changements de ligne; le déplace- 
ment du curseur en recherche est un peu lent; il n'y a pas de possibilité de 
positionner des tabulateurs. 
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Aussi, je recommençais à envisager d'écrire mon propre logiciel quand à ce 
moment Scripsit devint disponible. 


Je constatais que ce programme était beaucoup plus rapide (impossible de 
perdre des caractères). Scripsit permet de représenter à l'écran des lignes de 
plus de 64 caractères: on indique la longueur voulue de ligne, le texte est 
reformaté et il est ainsi possible de simuler le déplacement latéral de l'écran 
devant le texte, de même façon qu'habituellement dans le sens vertical. 


De plus Scripsit possede des possibilités de tabulation, d'indentation des 
débuts de paragraphe, de numérotation automatique des pages et de création de 
blocs de début et de fin de page répétés automatiquement. 


La souplesse au niveau du formatage à l'impression est fortement accrue par 
l'incorporation de marqueurs dans le texte. Ces marqueurs permettent un forma- 
tage dynamique, c'est à dire qu'il est possible de changer les marges ou tout 
autre facteur de formatage au cours de l'impression. 


Ce programme est proposé avec une modification "minuscules" du Modele 1. 
En fait, j'ai constaté qu'il marche très bien avec la modification Electric-- 
Pencil. Seul avantage de la modification de Tandy, les jambages des lettres q, 
p et j sont descendants. 


Les commandes de Scripsit étant plus complètes, elles sont de ce fait 
aussi plus complexes, néanmoins après une petite période d'apprentissage et 
d'adaptation, j'ai estimé ses avantages tels que j'ai cessé d'utiliser Elec- 
tric-Pencil. 


en — ir 


J'étais presque satisfait de mon système, cependant l'écriture d'une im- 
primante à matrice ne peut rivaliser avec l'écriture d'une imprimante à boule ou à 
marguerite, ou d'une simple machine à écrire manuelle, même mécanique. Cela 
limitait les cas ou je pouvais effectivement utiliser le traitement de textes. 


L'annonce de la Daisy II arrivait à point nommé, je l'ai achetée dès sa 
sortie. 


C'était trés satisfaisant de pouvoir imprimer des textes avec un bonne 
qualité de frappe, mais c'était frustrant de ne pas pouvoir utiliser tous les 
possibilités de cette machine tels que: le Soulignement, le retour arrière 
pour surimprimer comme #, nos caractères nationaux tels que 4, sèr 6, 6, 4, 10, 
etc, et les caractères spéciaux tels que °, up, 4, ", ®, ©, etc. 


J'en etais reduit a ajouter les accents a la main ! 


Une solution plus élégante, passait par une modification de Scripsit. 
Après avoir désassemblé et listé ce programme, je repérais sans trop de diffi- 
culté l'endroit où il fallait modifier le driver d'imprimante. Pour localiser 
cet emplacement, j'avais recherché dans la liste des référènces croisées les 
instructions qui faisaient appel à l'adresse 37E8H, adresse de sortie des 
caractères vers l'imprimante. J'ai pu ainsi modifier le driver d'impression 
pour transformer, par exemple, @ en à, $ en ç, etc. 


Malheureusement, le nombre des caractères spéciaux que je pouvais attri- 
buer à des caractères accentués, et dont je pouvais me passer n'était pas 
suffisant pour permettre tous les caractères que je voulais pouvoir imprimer. 
D'autant plus que je souhaitais, en plus, disposer des signes ° et ie 


J'essayais donc de modifier Scripsit pour lui faire accepter de mémoriser 
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et d'afficher des codes graphiques qui auraient été imprimés comme caractères 
accentués. Je n'avançais pas dans cette voie: les contrôles concernant les 
valeurs entrées sont trop sévères, trop nombreux et trop dispersés. 


Finalement j'ai été dépanné par Superscript un programme modifiant Scrip- 
sit et réalisé par Acorn Software. 


Pour effectuer cette opération, il faut copier une version de Scripsit sur la 
disquette Superscript et lancer ce dernier programme. On répond ensuite aux 
questions posées à l'écran, concernant le type d'imprimante utilisé, et la 
modification s'effectue automatiquement. 


On obtient une version de Scripsit qui possede de nombreuses possibilités 
supplémentaires: 

- protection de la mémoire haute pour installation éventuelle de 
routines supplémentaires; 

- abaissement ou de relevement du chariot d'une demi-ligne, 
autorisant les indices inferieurs et superieurs; 

— insertion d'espaces entre deux mots qui ne seront en aucun 
cas separés par le formatage des lignes ou la justification; 

- arrêt en cours d'impression pour insérer un mot tapé directement au 
clavier, ou pour changer de marguerite; 

- changement de la densité en cours d'impression; 

— le zéro barré (ÿ); 

- meilleur fonctionnement des touches en répétition automatique; 

- soulignement et écriture grasse par double impression de chaque 
caractère; =, 

- accès à 5 nouveaux caractèfes en frappant CTRL en même temps que certaines 
touches. Ces caractères sont [ ] { } et l'accent circonflexe. 


Après l'installation du ‘patch'' j'ai redésassemblé et remodifié la nou- 
velle version de Scripsit, pour utiliser les caractères nouvellement disponib- 
les en leur donnant les significations qui me convenaient à l'impression. 


Je pouvais maintenant imprimer la plupart des caractères couramment uti- 
lisés. Mais il restait un certain nombre de caractères plus ou moins exotiques 
de ma Daisy II tels que Ô | ft Y à À? à etc. auxquels je n'avais toujours 
pas accès. Par ailleurs, la fonction de soulignement soulignait les mots mais 
pas les espaces entre les mots. 


Le fait de voir "}" à l'écran et de se souvenir que ma version de Scripsit 
imprimerait ''è!" à La place n'était en soi pas difficile, d'autant plus que 
j'avais collé des étiquettes sur les touches correspondantes. Mais la relecture 
d'un texte ou la recherche de fautes de frappe fait appel à des réflexes qui 
sont mis en échec devant des mots étranges comme ‘d{crypter'" ou ‘"'voil@". 
Impossible de corriger un texte efficacement à l'écran, il fallait imprimer une 
première fois, corriger sur papier, entrer les corrections à l'écran puis 
réimprimer. 


La lecture de publicités dans les journaux d'informatique individuelle, 
m'apprenait qu'une solution venait d'apparaître sur le marché. La société 
Belge BCM proposait un générateur de caractères accentués pour TRS-80 accom- 
pagné de modifications pour Electric-Pencil et TRSDOS. Rien pour Scripsit, mais 
du côté logiciel je me sentais en mesure de faire face. 


Il n'y avait pas à hésiter, je commandais donc le générateur de BCM qui me 
promettait une amélioration considérable de mon système. 


En ouvrant mon TRS-80 je vérifiais que comme je le soupçonnais, sur ce 
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modèle relativement ancien, le générateur de caractères était soud£. Etant 

donné le mauvais souvenir laissé par ma dernière modification, je port=is =e 

appareil chez Tandy pour faire mettre le générateur sur un support. Pour != 

reste l'installation de ce générateur de caractères ne pose 2ucus prob lès. 

Attention cependant aux pattes à enficher: elles sont vraiment très fines = 
fragiles. 


Les caractères à 6 et à se trouvent à la place des caractères 4 } et 
de Superscript: déjà une partie du problème résolue, 


Le reste était passablement complexe; le plus dur étant de trouver à quel 
endroit du programme est géré l'affichage des caractères à l'écran. Pour affi- 
cher les autres caractères accentués, j'ai dû les stocker en mémoire sous une 
valeur qui n'est ni celle qui est affichée ni celle qui est imprimée! Cela est 
dû aux nombreux contrôles faits par Scripsit, qui n'admet la mémorisation et 
le traitement de caractères que s'ils sont dans la fourchette décimale 32 à 127. 


Dans cette plage, les caractères 91 à 95 et 123 à 127 ne sont pas utilisés 
pour des caractères courants. Il constituent des marqueurs spéciaux de Scripsit 
et des marqueurs et caractères supplémentaires de Superscript. En prenant cer- 
taines valeurs dans cette plage, et en y ajoutant #, $ et @ j'avais suffi- 
samment de codes pour mémoriser tous les caractères accentués que je voulais 
pouvoir afficher à l'écran. 


Par exemple en tapant CTRL 6 le signe | (code 124) est mémorisé, le 
driver écran modifié de Scripsit affiche "&" (code 5 sur le générateur de 
caractères de BCM): comme ce caractére n'existe pas sur la Daisy II, le driver 
d'impression traduit en "e'"", BACKSPACE, accent circonflexe, (codes 101, 08 et 
136) ce qui donne à l'impression de nouveau "8", 


Cette version modifiée de Scripsit me permet ainsi d'afficher directement 
les caractères suivants : 


| à C è e é ds 


Poür pouvoir accéder à d'autres caractères, je mis à profit le fait que 
certains signes spéciaux sont, en principe, toujours suivis d'un espace. J'ai 
donc considéré que chaque fois qu'un tel signe précède un caractère non blanc, 
il prendrait pour le driver de l'imprimante Le sens d'un signal d'échappement 
indiquant que ce caractère doit être traité de manière particulière, c.a.d. dans 
la plupart des cas, transcodifié en un autre. 


Ainsi, tous les caractères avec un accent circonflexe, hormis le "@" affi- 
ché directement à l'écran, peuvent être obtenus en frappant < immédiatement suivi 
du caractère à accentuer 

ASTNOLA 
Le signe : suivi du caractère à coiffer permet de mettre un tréma 
ëé TL ü 


Tous les autres caractères existant sur la Daisy II peuvent être obtenus 
par le Signe ! précédant un autre caractère 


HEciD= 1, let he! et y =, Met se 8, |! et g= 0, etc. 
Le signe * est interprété par le driver d'imprimante comme un Backspace 


(retour arrière d'un caractère, permettant ainsi la surimpression). Pour pou- 
moir quand même imprimer * il faut taper ! suivi de *. 
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Le ; non suivi d'un espace permet de souligner les espaces entre les mots, 


chaque ; est remplacé par un espace souligné. 


Les combinaisons ! avec < ou > permettent de monter ou de descendre une 
demi-ligne. Ils commandent de plus une autre fonction: Les ----- &t ==== sui- 
vants sont imprimés comme des lignes simples ou doubles continues. 


RTS ue SRE Le ru es un 
Cette possibilité permet de | 
créer des cadres! 


ER RE LRME Les tt 


Les marqueurs ! suivis des chiffres 1 à 7 permettent un décalage de 1 à 7 
caractères vers la gauche de la seule ligne en cours. Ils fournissent un moyen 
plus commode que les commandes standard de formatage de Scripsit, dans le cas 
ou certaines lignes commencent plus à gauche ( numérotation [| 14) ou a.)] ou 
marquage [ - ou . ], etc. 


Pour ne plus me tromper de touche contrôle j'ai par ailleurs déplacé 
celle-ci de la touche @ vers la touche contrôle d'Electric-Pencil plus commo- 
dément placée sur mon clavier. 


Il reste à resoudre un probleme creé par ces ameliorations, dans certains 
cas la justification ne fonctionne plus très correctement, je tente actuelle- 
ment de remédier à ce defaut. 


Hormis cette imperfection, je possede donc maintenant un système de trai- 
tement de textes dans l'ensemble conforme à mes souhaits qui se compose: 

- du Model 1 niveau 2, 48 K; 

- de deux unités de minidisquettes; 

- d'une imprimante Daisy 2; 

— du générateur de caractères BCM; 

- des logiciels Scripsit et Superscript modifiés par mes soins. 


Cette configuration represente un investissement d'environ 31000,-- 
francs, à mes yeux un rapport qualité - prix intéressant. 





Wolfgang LAUTER 


Abonnez-vous 


à TRACE 


Voir page 5 
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Publicité 





27, Av. Duquesne 
75007 PARIS L'Association des Utilisateurs de TRS-80 


a été fondée il y a un an et demi pour 
répondre à un besoin de mutuelle assistance. 





ASSOCIATION LOI 1901 


Son role essentiel est d’être un trait d'union entre les 
utilisateurs d’un même type de matériel, de favoriser les contacts 
entre membres de préoccupations voisines ainsi que d'encourager et de 
faire connaitre les développements réalisés sur TRS-80. 


Son principal moyen d’action est un bulletin aux rubriques variées 
(sujets généraux, renseignements sur les produits nouveaux, conseils 
de programmation en BASIC ou en assembleur avec exemples à 1l’appui) 
dont six numéros ont été publiés à ce jour. 


L’A.U.T. organise chaque mois à Paris une réunion qui porte 
partiellement sur un thème précis. C'est surtout une occasion pour 
nouer des contacts et engager des conversations fructueuses. Les 
problèmes évoqués par les autres élargissent l'horizon de chacun. 


En 1981, un concours de programmes de jeux a obtenu un vif succès 
tant par le nombre de programmes reçus que par la qualité des 
meilleurs. 


Quel que soit votre matériel Tandy (ou de toute autre marque com- 
patible), rejoignez les rangs de l’'A.U.T. Plus importante sera l’'as- 
sSociation, plus efficace sera l'action de chacun. 


=" Une structure existe, à vous d'en profiter. 


REUNIONS PREVUES : 


3 janvier 1982, langages et systèmes d'exploitation. 

27 février 1982, liaisons avec des dispositifs extérieurs. 
29 mars 1982, éducation. 

24 avril 198%, gestion des fichiers. 

22 mai 1982, applications professionnelles. 

26 juin 1982, jeux. 


Ces réunions se tiennent de 14h.30 à 17h.30, à la salle Chateau- 
Briand de l'annexe de la Mairie du 14ème arrondissement, 26 rue 
Mouton-Duvernet 75014 FARIS. 

Toutefois celle du 20 mars est prévue au Club-House du PUC, 1 ave- 

-nue de la porte de Gentilly, 750173 FARIS. 


Pour plus de renseignements et pour recevoir un spécimen du bul- 
letin, écrivez à A. UT. 27 avenue Duquesne 75007 FARIS 
en précisant : 


NOM :_ PRENOM 
SRRESSE 
PRESSION TELEPHONE 


MAMERIEI LITILISE 


programme 





Augmentez 
votre vitesse 
de frappe sur clavier 





C'est un des tous premiers programmes que j'ai 
écrits dès l'achat de mon ordinateur. Après 
réflexion, je me demande encore si ce n'était pas 
pour amadouer mon épouse qui, en ce temps-là, 
n'avait päs de machine à écrire personnelle ... 

La disposition anglo-saxonne des touches clavier 
de la pauvre machine mit un comble à sa fureur et 
je dus passer rapidement à l'action avant que 
l'ordinateur lui, ne passe par la fenêtre ... ! 
Vous savez comment il faut s'y prendre maintenant ! 





Ce petit programme permet de frapper un texte quel- 
conque au clavier selon le mode QWERTY (anglo-saxon) 
ou AZERTY (français). Dans ce dernier mode, le 
clavier peut être considéré à quelques détails près, 
comme celui d'une machine à écrire, grâce à une 
table de transcodage des touches. Optionnellement, 
l'affichage s'effectue en 64 ou 32 caractères par 
ligne (gros caractères). À la fin du texte, le 
programme affiche la vitesse de frappe en mots 

par minutes, selon la convention utilisée par les 
dactylographes. 


Pour pouvoir mesurer le temps de frappe et trans- 
coder les caractères issus du clavier, il est 
nécessaire d'employer une routine en langage 
machine. Sur une machine 48K disque, le programme 
fonctionne tel qu'il est décrit ci-après (routine 
implantée aux adresses 30726 à 30900), sans 
nécessiter de "memory size". S'il est nécessaire 
de déplacer cette routine, il faudra veiller à 
modifier en conséquence les zones soulignées du 
programme. Aux lignes 80 et 90, la valeur 120 
représente INT (adresse routine/256). Pour les 
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COPYRIGHT TRACE ET L'AUTEUR 
CMD°T” 
CLS : PRINT TAB(10) “*xx PROGRAMME D'E 
NTRAINEMENT DACTYEO ##æ" : PRINT 
POKE 16533:235 
DATA 1:00733»0:0:229»229r162r14r205:S1 
:0:205:43:0; 183: 32:13 
DATA 2257357124: 181:32:6:2251352229?33 
:0:0:229:24:235125411 
DATA 4024:32254:33:S6:321254r951648r28 
:214:33r95222:0:33:119 
DATA 12072571267205>S51»0r24:202r237r67 
:0:120:225r34r2r 1207225 
DATA 34:45120201 
DATA 254109:32:4:62:63:24r230:2 
40:229:2934r13r408 

7827137 
204762:85:284;:200 
PEM TABLE DE TRANSCODAGE 
DATA 492507515252: 54:55:56:S7r46r77 
59:33:58:81r63r42:69 
DATA 341397404589 :45r67r241r7714br43; 
471439181466; 
DATA 69270r71r72:73:7437 
80:65r82r83r848588 
DATA 90:28:99:87291792293:94 
RESTORE 
FOR AD=30726 TO 30900 
READ V : POKE AD:V : NEXT 
DEFUSR1=30728 
INPUT "CLAVIER FRANCAIS» (OUI OU NON)» 
5 G$ 
IF LEFT$C#r1) ©> "O* THEN POKE 30767» 
24 
INPUT “VOULEZ-VOUS LES GROS CARACTERES 
: (OUI OU NON)": GS 
CLS : PRINT “FRAPPEZ SUR LA TOUCHE ‘BR 
EAK' POUR STOPPER LE CHRONO.” : INPUT 
"FRAPPEZ LA TOUCHE ‘ENTER’ LORSQUE VOU 
S ETES PRET": À$ 
CLS : IF LEFT$(G$»1) ="0" THEN PRINT C 
HR$(23) 
PRINT "TOP CHRONO..." 
A=USR1(0) : PRINT : PRINT 
NC=PEEK(30720) + PEEK(30721) * 256 
T1=PÉEK(30722) + PEEK(30723) + 256 
T2=PEEK(30724) + PEEK(30725) * 256 
1=65536 # T2 + T4 + (112 * NC) 5 T=T / 
2116 

PRINT "NOMBRE TOTAL DE CARACTERES="; N 


PRINT “TEMPS T 

TS=0 : TI=T S 

IF T>=3600 THEN TH=INT(T/3680) 
TH3 “H *: 2: T=7-36002TH 
IF T>=60 THEN TM=INTIT/60) : PRINT TM; 
"MN": 2 T=T-60*7M 

PRINT INT{T): "S" 

PRINT “VITESSE=": NC#10/TT3 "MOTS/MN." 

PRINT : INPUT "ON CONTINUE": 4$ = IF L 

EFTS(A$S:1)="0" THEN 250 

CHD°R" 








utilisateurs non-disque,le DEFUSR de la ligne 210 
devra être remplacé par : POKE 16527, 120 : POKE 
16526 ,6. 


Un petit détail : la commande "nouvelle ligne" 
(ENTER) est effectuée par la touche "flèche à 
droite", pour plus de vraisemblance. 





Alain Pinaud 


utilitaire 





n «super-driver » 


relogeable 


pour votre 
imprimante = 


parallèle 








Ce programme en assembleur s'adresse aux utilisa- 
teurs de NEWDOS80 sur modèle 1 version disque et 
permet de gérer l'imprimante parallèle avec un 
maximum d'avantages. Le "driver" (nom donné à un 
programme devant “conduire" un organe périphérique) 
se charge initialement à l'adresse 5200H, puis se 
déplace en fond de mémoire en rectifiant automati- 
quement le "memory size". Si vous avez déjà des 


routines binaires à cet endroit, il se placera — 


en amont. Les paramètres courants du format 
d'impression peuvent être définis à l'initialisation: 
impression du numéro de page, nombre total de lignes 
par page, nombre de caractères par ligne, marge 
verticale. Toutefois, ces paramètres peuvent être 
modifiés facilement, sans pour cela recharger le 
programme. Ces paramètres sont 


— PAGE= numéro à porter sur la première page (il 
n'y à pas d'impression si ce numéro est O0) ; 

- LIGNE= nombre maximum de lignes par page ; 

- CARACTERE= nombre de caractères par ligne 
(passage automatique à la ligne suivante) ; 

— MARGE= nombre de lignes à laisser avant un saut 
de page automatique (pas de saut si =0) ; 

- SAUT si ce paramètre est présent, un saut à la 
page suivante est effectué avant le début de 
l'impression. 


Ces paramètres peuvent être abrégés : P=1 pour 
PAGE 1, etc. 


Lancement à l'initialisation (au niveau DOS) : 


PARAL éliste optionnelle de paramètres} 


Exemple : 
PARAL P-1,M=4 


Après chargement, il est possible de modifier un ou 
plusieurs paramètres, ou de provoquer un saut à la 
page suivante, en frappant une fommande identique 

à celle ci-dessus mais précédéé du signe "*", Cette 
possibilité intéressante er nice que par 
NEWDOS80. Exemple : / 


*PARAL P-=2,CAR-40 (au niveau DOS ou MINI-DOS) 
CMD "*PARAL P=2,SAU?" (au niveau BASIC) 


Attention : toute tentative de charger le programme 
une seconde fois sans avoir réinitialisé le système, 
provoquera une erreur (il est interdit de placer 

en "file" deux programmes de même nom...). 


Un dernier mot : si votre imprimante génère toute 
seule un "line feed" (avance papier) après le retour 
chariot, supprimez les lignes 200, 2550 et 2560. 
Enfin, pour ceux qui n'auraient pas la chance 

de connaître NEWDOS80, il est toujours possible 
après quelques modifications, d'adapter ce 
programme à un autre DOS, en se privant toutefois 

de la possibilité de modifier (simplement) les 
paramètres, puisque la commande "*" n'est alors 

pas disponible. 


(programme au verso) 


Alain Pinaud 
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Vos premiers pas 
en assembleur 





Nous n'avons pas l'ambition, dans cet article, de 
passer en revue toutes les possibilités de 
l'éditeur-assembleur EDTASM. Notre objectif est de 
prouver (peut-être êtes-vous déjà convaincus ?) 
que la mise en oeuvre de ce logiciel est, somme 
toute, chose aisée. Pour ce faire, nous prendrons 
pour exemple une routine d'affichage des codes 
ASCII sur l'écran vidéo. 


En version cassette, la procédure d'appel du 
programme est la suivante : 


SYSTEM 

*E (la première lettre suffit) 

ie 

(NOTA : L'* est affiché par le logiciel. De même 
que dans les entrées suivantes, toute ligne intro- 
duite se termine par un appui sur la touche ENTER). 


En version disquette, il suffit de frapper (au 
niveau DOS) : EDTASM. 

L'éditeur-æsembleur étant chargé en mémoire, un 
astérisque apparait en début de ligne. Ce caractère 
signifie "je suis prêt, entrez votre commande". 


Etant donné que nous allons INTRODUIRE un texte, 
il suffit de répondre : 


I (ou "110,5" si nous voulons numéroter les 
lignes de 5 en 5, à partir de la ligne 10). 


EDTASM répond en affichant le numéro de ligne (100 
si rien n'est précisé. Dans ce cas, la numérotation 
progresse de 10 en 10). 


Au départ, nous sommes positionnés sur le champ 
"étiquette" de la ligne assembleur. La touche > 
(tabulation) nous permet d'accéder aux champs 
situés à droite ; la touche < est utilisée pour 
revenir en arrière d'un caractère ou d'un champ 
(correction d'erreur). Si vous vous apercevez 
trop tard d'une erreur, n'en tenez pas compte 
pour l'instant, elle sera corrigée par la suite. 
Il vous reste maintenant à entrer le petit 
programme suivant en pensant à utiliser la touche 
"—> " pour passer d'un champ à l'autre, et en 
terminant chaque ligne par un appui sur la touche 
ENTER. 
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A ce moment, l'éditeur-assembleur affiche le 

numéro de la ligne 220, mais le programme étant 
maintenant terminé, il suffit d'appuyer sur la 
touche BREAK. L'astérisque apparait de nouveau. 


Voulez-vous lister votre programme ? Très simple. 
Il suffit de frapper la commande 


PH :* 


ce qui signifie : lister (Print) le programme de 
la première (4) à la dernière (*) ligne. On peut 
aussi faire P150 pour lister la ligne 150. 

Mais vous avez peut-être des erreurs à corriger ? 
Rien de plus simple si l'on connait déjà l'éditeur 
du BASIC. Il suffit d'entrer la commande E (Edit), 
suivie du numéro de la ligne à modifier, et d'agir 
de la même facon que pour une ligne de BASIC. Pour 
supprimer une ligne, on utilisera la commande D. 
Par exemple : D160 supprimera la ligne 160. 


Pour assembler le programme, on frappe la commande 
A. En version disquette, EDTASM demande si le code 
binaire issu de l'assemblage (appelé le code objet) 
doit être stocké sur cassette (T) ou sur disquette 
(D). Dans ce dernier cas, il faut donner un nom au 
code objet. Que ce fichier existe ou non sur la 
disquette, une confirmation est demandée (création 
ou remplacement). L'opération d'assemblage commence 
alors, et le fichier objet est écrit sur la 
disquette. En version cassette, la commande A sera 
suivie d'un espace et d'un nom de 1 à 6 caractères. 
A la fin de l'assemblage, il faut répondre à la 
question "READY CASSETTE" par la touche ENTER pour 
écrire le code objet sur cassette (nom donné à la 
suite de la commande A), ou par BREAK pour avortér 
la commande. 


ATTENTION ! Avant de "sortir" d'EDTASM, il ne faut 
surtout pas oublier de sauver le code source, celui 
que vous avez frappé précédemment. En version 
cassette, cette fonction est effectuée par la 
commande W suivie d'un espace et d'un nom de 1 à 6 
caractères. En version disquette, la sauvegarde se 
fait par 


W D=nom de fichier (sauvegarde sur disquette) 

ou 

W T=nom de 1 à 6 caractères (sauvegarde sur 
cassette) 


En règle générale, en utilisation disquette, les 
fichiers sources auront l'extension "/ASM" et les 
fichiers objets l'extension "/CMD", ce qui ne 
signifie pas que ces suffixes sont placés auto- 
matiquement par l'éditeur-assembleur. Vous en avez 
le choix. Dans le cas de notre petit programme par 
exemple, ASCII/CMD sera le fichier binaire exécu- 
table (lancé sous DOS en frappant : ASCII), et 

le fichier ASCII/ASM sera le source de ce programme. 


Vous voyez que ce n'est pas si difficile que cela ? 


JP du Tillet 





TRACE N° l — Janvier 82 — 49 


essal 





De la musique 
pour votre 
ordinateur 





FICHE TECHNIQUE 


Nom du produit : Orchestra 80 

Type du produit : synthétiseur numérique 

Constructeur : Software Affair Ltd 

Diffusion en France: Graphie 

Prix 2709 FF CLC 

Présentation : un circuit imprimé 
une cassette (programme + 
démonstration) 

Langage utilisé : assembleur 

Configuration : TRS-80 Level II 16K 
lecteur cassette ou disquette 

Documentation : manuel de 39 pages en anglais 
manuel français chez l'importa- 
teur 


Qui n'a pas désiré un jour pouvoir faire exécuter 
une partition, parce que trop difficile à interpré- 
ter ou mettant en oeuvre plusieurs instruments ? 

Qui n'a pas été tenté de s'essayer à la composition? 
C'est pour répondre à cette demande que le synthéti- 
seur Orchestra-80 et son logiciel associé, ont été 
conçus. Le résultat est plutôt satisfaisant sur le 
plan musical, sans comparaison avec ce qui peut être 
obtenu classiquement en utilisant un amplificateur 
sur la sortie cassette. 


Le synthétiseur est constitué d'un circuit imprimé. 
Celui-ci supporte un circuit intégré, des résistan- 
ces, un connecteur se branchant sur la sortie "bus! 
de l'ensemble clavier ou de l'extension d'interface, 
ainsi qu'une prise "jack" femelle pour assurer la 
liaison avec un amplificateur de son. Aucune alimen- 
tation n'est à prévoir. 


Le logiciel qui accompagne le synthétiseur est 
constitué de cinq modules groupés en un seul prog- 
ramme, d'un maniement très simple : 


"L'interface" : le synthétiseur couvre six oc- 
taves et peut produire jusqu'à quatre sons (ou voix) 
simultanément. À chaque voix correspond un des 
quatre registres définissant le type d'instrument 
imité. C'est l'interface module qui gère cette rela- 
tion. 


“Le compilateur" : le langage musical proposé 
autorise la transcription sans problème de la plu- 
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part des partitions musicales. Le manuel fourni 
donne des explications claires sur la manière de 
passer de la notation musicale à celle comprise par 
le programme (mon fils de 12 ans s'en est accomodé 
très vite). Le compilateur accepte des musiques 
écrites en n'importe quelle clef, altérée ou non, 
avec indication du "tempo". Les notes peuvent être 
pointées ou jouées comme un triolet. Le staccato, 
le pizzicato et les liaisons sont également possib- 
les, ainsi que les répétitions. 


L'éditeur" : c'est sûrement le module le plus 
intéressant, en ce sens qu'il rend vraiment utili- 
sable le langage musical proposé. Les modifications 
(suppression, insertion, changement, recherche, 
duplication) sont facilement réalisées à l'aide du 
déplacement du curseur, qui donne accès à toutes 
les positions de l'écran. De plus, la fonction de 
répétition est associée aux touches de commandes. 
En cas d'erreur à la compilation, le programme 
passe automatiquement en mode "éditeur". Ainsi, 
l'utilisateur peut effectuer la correction puis re- 
lancer la compilation. 


Des commandes sont disponibles pour lancer la compi- 
lation ou l'édition, le rangement ou le chargement 
de morceaux, l'enchaînement du chargement, de la 
compilation et de l'exécution de plusieurs morceaux. 


“Le gestionnaire de fichiers" : Les morceaux 
transcrits dans le langage musical peuvent être 
stockés sur cassette (avec la gestion de plusieurs 
morceaux sur la même cassette), ou sur la disquette 
(avec possibilité d'en afficher le catalogue). 


“L'initialiseur" : Ce module gère une série de 
dialogues destinés à préciser les options choisies 
par l'utilisateur : modification ou non des valeurs 
définissant le timbre (sont simulés en standard 
les sons de la trompette, du hautbois, de la cla- 
rinette et de l'orgue) ; nombre de voix simultanées 
(une plus grande qualité de simulation est obtenue 
avec trois voix) ; vitesse d'exécution standard 
(1.77 Mhz) ou rapide (2.66 Mhz) si l'on possède 
cette dernière option de l'unité centrale. 


Le synthétiseur s'installe sur la sortie "bus" du 
clavier ou de l'interface d'extension. Il est né- 
céssaire de se procurer un câble de raccordement 
afin de pouvoir le relier à sa chaîne Hi-Fi. 


Le programme accompagnant Orchestra-80 est livré 


sur cassette, dans les deux versions disquette et 
cassette. À titre de démonstration, des extraits de 
l'ouverture de Guillaume Tell, d'une sonate, d'une 
gigue et d'une fugue sont fournis. 


Bien sûr, on regretteèra l'absence d'une représen- 
tation graphique "façon Apple Il", qui pourrait 
toutefois être envisagée avec une carte graphique 


———— —————————_—_— 


(*) Selon certaines informations que nous n'avons 
pu contrôler avec certitude, il semblerait que 
Software Affair, fournisseur de la gamme Orchestra, 
ait des problèmes financiers qui pourraient l'ame- 
ner à disparaître. Nous avons décidé de quand même 
présenter cet essai, dans la mesure où d'une part 
nos informations ne sont pas certaines, d'autre 
part il nous semble que, même si elles sont vraies, 
ce n'est pas pour autant que le produit, qui n'est 


finalement qu'un périphérique, devient mauvais. 
Notre position serait bien sûr différente s'il 
s'agissait d'unité centrale ou de gros périphéri- 
ques, pour lesquels la disparition éventuelle du 
constructeur pose des problèmes pour le service 
après-vente que ne peut fournir le revendeur. À nos 
lecteurs de juger ! - NDLR. 


matériel à l'essai 










Enfin, 11 est à noter l'a 
fréquence, tel qu'on en tr 







fois, la documentation donne un cor 
de diminuer ces inconvénients, en mo 
valeurs des registres ou en transposar 
à interpréter ; ceci se faisant à l'ai 
commande du langage. 


Ceux qui seraient gênés par les limitations 
d'Orchestra-80 auront toujours la possibilité de 
lui préférer Orchestra-85, fabriqué par la même 
société, et bientôt disponible en France (*). Il 
offre en outre une voix supplémentaire, l'effet 

de percussion, le son stéréophonique et la faculté 
de redéfinir le timbre pendant l'exécution. 


a Pierre Landry 








Des 8 pouces 
sur votre modèle 1 





Pourquoi vous contenter sur votre modèle 1 de la capa- 


cité réduite des minidisquettes ? Désormais, vous 


pouvez connecter des disquettes 8 pouces, d'une capa- 
cité unitaire de plus de 300K octets, voire 700K dans 


le cas de disquettes double face ! Ceci est possible 
grâce au Mapper II, une interface spécialisée dispo- 
nible sur le marché américain. 


Le "Mapper II" se présente sous la forme d'un 
circuit imprimé de 9 centimètres sur 9, supportant 
8 circuits intégrés et un emplacement destiné à 
recevoir le contrôleur de disquettes FD1771. Ce 
dernier sera prélevé dans le chassis de l'interface 
d'extension. Deux fils partent du Mapper II, l'un 
terminé par un petit "grip-fil", l'autre par un 
connecteur HO points. 

Il suffit alors d'enficher le tout dans le support 
laissé libre par le 1771, de raccorder un fil à 
l'un des circuits intégrés de l'extension (les deux 
modèles d'interfaces conviennent), et d'enficher le 


CMIXRÔON MAPPER [I 
[5] LELZ: 713 PRIT 
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connecteur sur le port "screen printer" afin d'y 
prélever le signal "WAIT". Cette méthode 
d'installation dite "sans soudure" ne semble pas 

très satisfaisante, et en pratique, il sera souhai- 
table de souder les deux fils, à moins que l'on 
éprouve une certaine répugnance à utiliser le fer à 
souder. Il faut signaler d'autre part que l'ouverture 


du châssis annule la garantie Tandy. 


En plus de l'avantage incontestable de pouvoir 
exploiter des disquettes 8 pouces et leur grande 


tous les programmes tournant sous NEWDOS80 pourront 
exploiter les disquettes 8 pouces comme s'il 
s'agissait des minidisquettes standards. Mais avec 
quelle capacité...! I1 faut signaler également que 
les disquettes ont un temps d'accès inférieur et 

un débit supérieur à ceux des minidisquettes, ce qui 
augmente notablement les performances générales du 
système. 

Avec le Mapper II, le modèle 1 s'approche 

davantage d'un vrai système professionnel, avec 
lequel on peut aborder des applications sérieuses. 





capacité, ce dispositif apporte une amélioration 

de la fiabilité dans la lecture des mini-disquettes 
standards. Le Mapper II comporte en effet un circuit 
de séparation externe données/horloge, hautement 
conseillé dans les applications sérieuses, tant par 
les constructeurs de minidisquettes que par ceux 

des contrôleurs. En standard, le modèle 1 utilise 

le séparateur interne du 1771, qui est bien connu 
pour un certain nombre d'anomalies. Plusieurs firmes 
américaines commercialisent d'ailleurs des sépara- 
teurs externes de données sous le nom de "data- 
separator". 


Le câble de raccordement des disquettes fourni en 
supplément par Omikron, permet de raccorder 2 
minidisquettes 5 pouces et deux disquettes Shugart 8 
pouces SA800. En précisant au moment de la commande 
la configuration et le type des unités employées, 

il est possible d'obtenir un câble particulier. 


La documentation accompagnant le Mapper est claire 
et précise, mais aurait été moins triste avec une 
petite photo ou un schéma de montage. En annexe 
nous trouvons quelques renseignements sur la 
disquette SA800, ainsi que le schéma du câble. 


Le logiciel NEWDOS80 détecte l'existence du Mæper Il. 
La commande PDRIVE de ce Système d'Exploitation 
permet de définir la configuration des disquettes 8 
pouces à raison de 77 pistes de 15 ou 17 secteurs 
chacune, soit un total de 327K octets par face. Le 
système étant configuré, toutes les commandes et 
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A notre connaissance, ce dispositif n'est 
malheureusement pas disponible en France (Allons, 
Messieurs les importateurs, un peu de nerf!)... 
Nous avons donc été obligés de le commander aux 
États-Unis à l'adresse ci-dessous 


OMIKRON 

1127 Hearst St. 
Berkeley, CA 94702 
USA 


De plus, il faut signaler que cette firme fait 
quelques difficultés avec la carte Visa. Il est donc 
préférable de faire un versement en dollars. La 
commande ayant été passée le 15 octobre 1980, nous 
avons reçu le Mapper II et le câble le 7 janvier 
1981... (bordereau douanier daté du 20 décembre 
1980). I1 faut reconnaître que la période n'était 
pas très favorable et que nous avons passé un très 
mauvais Noël ! 

Compte tenu du cours officiel de l'époque (4,528 
francs) et des frais généraux (transport, douane, 
TVA), nous avons estimé que le dollar nous revenait 
à 5,70 francs, ce qui aboutit donc à la facture 
suivante 


MA DD CET ce 99$ x 5,70 = 564,30 F 
CARO Eee cpu 50$ x 5,70 = 285,00 F 
TOTAL 849,30 F 


Steen Pedersen 


langage 





Le Pascal UCSD 
et son P-code 





Le Pascal UCSD est un système destiné à s'exécuter 
sur un mini ou un micro-ordinateur. 


Ce système en fait est indépendant du mini ou du 
micro utilisé, car il est écrit en langage Pascal. 
La compilation de ce langage produit un code inter- 
médiaire appelé P-CODE, exécuté par une "pseudo- 
machine" (appelée P-MACHINE), émulée sur une machine 
réelle. 


Seul le module logiciel émulant la P-MACHINE est 
écrit en langage machine (Z80 dans le cas qui nous 
intéresse). 


Tout programme écrit en Pascal peut donc s'exécuter 
sur n'importe quelle machine disposant du système 
Pascal, et de ce module spécifique appelé INTER- 
PRETEUR, puisqu'il est exécuté sur la P-MACHINE 
qui est toujours la même. C'est la notion de 
MTRANSPORTABTLITE". 


Composition du système 


Le système Pascal se compose d'un certain nombre de 
modules que l'on retrouve en listant les fichiers 
contenus sur les disquettes 


- SYSTEM.FILER : Gestion de fichier (catalogue, 
copie, réorganisation des 
disquettes etc...). 

- SYSTEM.EDITOR Permet l'écriture des programmes 

en Pascal (création, modifica- 

tion). Ces programmes sont 
stockés avec le suffixe.TEXT 

- SYSTEM.COMPILER Compilateur. Génère, à partir 

d'un programme écrit en 

Pascal (.TEXT) le P-CODE 

exécutable par la P-MACHINE. 

Il est stocké avec le suffixe 

- CODE 

- SYSTEM.SYNTAX Fichier des libellés d'erreurs 

de syntaxe (détectées à la 

compilation). 

- SYSTEM.PASCAL C'est le système Pascal 

proprement dit, écrit en 

Pascal. 

— SYSTEM.TRS-80 Interpréteur écrit en code Z80 

dans le cas de cette machine. 

SYSTEM.MISCINFO Fichier contenant un certain 

nombre de paramètres du 

système (configuration 
matérielle). 


SYSTEM.ASSMBLER : Assembleur natif de la 
machine, permet d'écrire 
des programmes en langage 
machine et de produire du 


code Z80. 


Z80.OPCODES : Fichiers utilisés par 
l'assenbleur. 

: codes opération & libellés 
erreurs 
Editeur de liens. Permet de 
réunir des programmes Pascal 
compilés (P-CODE) et des 
programmes assemblés (code 
Z80), ces derniers pouvant 
être appelés à partir du 
Pascal. 


Z80.ERRORS 


ll 


SYSTEM. LINKER 


SYSTEM.LIBRARY Bibliothèque des programmes 
compilés ou assemblés, dispo- 
nibles pour une édition de 
liens. 

— SYSTEM.LIBMAP Informations d'édition de 
liens pour les programmes de 
la LIBRARY. 


En fonction des besoins, le système crée et gère 
un certain nombre de fichiers 


La zone où est mémorisé un 
programme Pascal en cours de 
création ou de modification 
est appelée WORKFILE (fichier 
de travail). 

Dès lors que ce fichier 
existe, il est automatiquement 
transféré en mémoire dès que 
l'éditeur est appelé. De même, 


— SYSTEM.WRK.TEXT 


la compilation utilise 
SYSTEM.WRK.TEXT et le P-CODE 
généré sera stocké sur le 
fichier SYSTEM.WRK.CODE . 
- SYSTEM.LST.TEXT Fichier contenant le listing 
de compilation (si l'option 
(*$L*) a été demandée). Le 
listing est sorti sur impri- 
mante par une commande de 
transfert sur PRINTER: du 
programme FILER . 
- SYSTEM.SWAPDISK Fichier utilisé pour le 
stockage temporaire d'une 
zone mémoire (swapping). 


Introduction à la P-MACHINE. 


La P-MACHINE utilise des mots de 16 bits. 
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Elle possède plusieurs registres et une mémoire 
utilisateur dans laquelle sont entretenues deux 
piles (STACK et HEAP ). 


Les registres sont 


SP : Stack Pointer. Pointe sur le sommet de la 
pile d'exécution (STACK). Utilisé pour 
passer des paramètres et retourner des 
valeurs de fonctions. Il constitue la 
source des opérandes d'un bon nombre 
d'instructions. 


NP : New Pointer. Pointe sur le sommet de la 
pile des variables dynamiques (HEAP). La 
procédure NEW empile de nouveaux éléments, 
alors que la procédure RELEASE les "dépile". 


JTAB : Jump TABle pointer. Pointe sur la table 
d'attributs de la procédure courante. 


SEG : SEGment pointer. Pointe dans le dictionnai- 
re des segments, sur le segment auquel la 
procédure courante appartient. 


MP : Most recent Procedure. Pointe sur le con- 
texte de la procédure courante. Les 
variables locales sont atteintes par 
indexation de MP. 


BASE : BASE procedure. Pointe sur le contexte de 
la procédure de base (niveau 0). Les 
variables globales sont atteintes par 
indexation du registre BASE. 


Instructions du P-CODE 


Nous ne les passerons pas toutes en revue (il y en 
a 256, dont la liste est donnée plus loin). Nous 
citerons simplement 


- les instructions de rangement ou de chargement 
(constantes, variables locales ou globales - 
entiers, réels, tableaux, etc...) 

- les instructions d'allocation, de libération 
d'espace mémoire pour les variables dynamiques 
(gestion du HEAP). 


- les instructions arithmétiques et logiques (dont 
les opérandes et le résultat sont dans la STACK). 


- les instructions spécifiques aux variables 
entières et réelles, aux chaînes, aux tableaux, 
aux "records", aux ensembles ... 


- les instructions de saut conditionnel ou in- 
conditionnel. 


_- les instructions d'appel et de retour de procé- 
dures. 


Exemples d'instructions 


mnémonique code hexa 


SLDC (e] Le code opération lui-même 
a (0 à 127) avec octet de 
7E poids fort à zéro est rangé 


dans la STACK (PUSH). 
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Chargement, rangement d'un mot global 


mnémonique code hexa 


SLDO x E8 Le mot d'adresse relative x 
a par rapport à (BASE) est 
F7 rangé dans la STACK. 

SRO x AB Range le contenu de STACK 


dans le mot d'adresse rela- 
tive x par rapport à (BASE). 


Rangement indirect d'un mot 


mnémonique code hexa 
STO 9A Le contenu de STACK est 
rangé dans le mot pointé 


par (STACK-1). 


Exemple pratique 


Le P-CODE produit par la compilation d'un programme 
Pascal peut être "désassemblé" par un processeur 
(écrit en Pascal) : DISASM II, fournit sur certaines 
versions UCSD (ce n'est pas le cas de la version 
TRS). On trouvera ci-après un exemple de ‘désassem- 
blage'" qui permet d'entrevoir la manière dont la 
P-Machine fonctionne. 


Programme Pascal 


PROGRAM TRUC ; 


VAR I : INTEGER ; déclarations I : entier 
FIN : BOOLEAN ; FIN : booléen 
CHAINE : STRING ; CHAINE : chaîne car. 
BEGIN 
HO); initialise I à O 
FIN := FALSE ; le booléen FIN est faux 
REPEAT 
East Full; 
WRITELN ('DEMO') 
UNTIL FIN FIN étant faux, le 
END. programme boucle 
CONCLUSION 


Comme nous avons pu le voir, la P-MACHINE n'est pas 
aussi simple que cela et c'est tant mieux si le 
système Pascal nous épargne d'y aller voir trop 
souvent ! 


Ceci est d'autant plus vrai que le système UCSD 
livré sur le modèle 1 n'a rien à envier aux systèmes 
livrés sur d'autres micro ou mini-ordinateurs. 


La seule limitation provient d'une part, de la 

taille mémoire disponible (raison probable de 
l'absence du DISASM II), d'autre part de la capa- 
cité des disquettes 5 pouces. 

Par contre, les options standards sont présentes tant 
au niveau de l'édition qu'à ceux de la compilation 

ou de l'édition de liens. 


___ Henri Frère 


Désassemblage 
du 
programme « TRUC » 


Desassemblage 


Adresse 
programme 
relatiue 


ÀEO3 


B690103 
A&EZA 


00 
CD0013 
SE00 


B60103 
CDON18 


Mnemoniaue 
P-code 


SLDC 0 
ERO # 


SLDO 3 


SLDC 1 
ADI 


SRO 


Les, 


LOBaltss 
LSA à 


"DEMO" 

LHC 91 

CXP WRITEST 
CSP IOCHECK 


LOD4ims 


CXP WRITELN 


CSP IOCHECK 
SLDO # 


EP 


REP 0 


Commentaire 
{13 P-machine utilise des 
mots de 16 bits) 
Halt conditionnel {rour DEBUG) 
Push de 0000 --} STACK 
Por du STACK dans le mot 
d'adresse relative 3 de la 
zone de donnee (initialisation 
uariable I). 
Push 0000 --} STACK 
Initialisation de la uariable 
FIN (D = FALSE). 
Push du mot d'ad, rel. 3 dans 
STACK luariable I). 
Push 0001 --} STACK 
Addition de (STACK) avec 
[STACK-1): resultat dans STACK 
Rangement de la nouvelle 
“valeur de I 
Sauvegarde 
L'adresse de l'octet suivant 
donnant la longueur de 13 
chaine -—--} STACK 


0000 --5 STACK 

R Brrel de la Procedure 
dont ialisation de 
l'entree/sortie (E/5) 
Controle de l'E/S 
EXIT si erreur) 

Sauvegarde 
BrPpel de l3 procedure 
d'affichage 


Le mot d'adr rel 4 --} STACK 
fuariable FIN) 

Jumr si (STACK)I=FAUX: 3 l'ins- 
truction d'adr rel. & 

Retour 4 la Procedure de BASE 


TRACE N° 1 — Janvier 82 — 55 


Les codes d'instructions 
de la P-machine 


127 111 7E -SEDC 127 


128 200 80 ABI 171 253 AB SRO 214 326 D6 XIT 

129 201 81 ABR 172 254 AC XJP 215 327 D7 NOP 

130 202 82 ADI 173 255 AD RNP 216 330 D8 SLDL 1 
131 203 83 ADR 174 256 AE CIP 217 331 D9 SLDL 2 
132 204 84 AND 175 257 AF EQU 218 332 DA SLDL 3 
133 205 85 DIF 176 260 BO GEQ 219 333 DB SLDL 4 
134 206 86 DVI 177 261 B1 GRT 220 334 DC SLDL 5 
135 207 37 DVR 178 262 B2 LDA 221 335 DD SLDL 6 
136 210 88 CHK 179 263 B3 LDC 222 336 DE SLIDL 7 
137 211 89 FLO 180 264 B4 LEQ 223 337 DF SLDL 8 
138 212 8A FLT 181 265 B5 LES 224 340 EO SLDL 9 
139 213 8B INN 182 266 B6 LOD 225 341 E1 SLDL 10 
140 214 8C INT 183 267 B7 NEQ 226 342 E2 SLDL 11 
141 215 8D IOR 184 270 B8 STR 227 343 E3 SLDL 12 
142 216 8E MOD 185 271 B9 UJP 228 344 E4 SLDL 13 
143 217 8F MPI 186 272 BA LDP 229 345 E5 SLDL 14 
144 220 90 MPR 187 273 BB STP 230 346 E6 SLDL 15 
145 221 91 NGI 188 274 BC LIM 231 347 E7 SLIL 16 
146 222 92 NGR 189 275 BD STM 232 350 E8 SLDO 1 
147 223 93 NOT 190 276 BE LDB 233 351 E9 SLDO 2 
148 224 94 SRS 191 277 BF STB 234 352 EA SLDO 3 
149 225 95 SBI 192 300 CO IXP 235 353 EB SLDO 4 
150 226 96 SBR 193 301 C1 RBP 236 354 EC SLDO 5 
151 227 97 SGS 194 302 C2 CBP 237 355 ED SLDO 6 
152 230 98 SQI 195 303 C3 EQUI 238 356 EE SLDO 7 
153 231 99 SR 196 304 C4 GEQI 239 357 EF SLDO 8 
154 232 9A STO 197 305 C5 GRTI 240 360 FO SLDO 9 
155 233 9 IX 198 306 C6 LLA 241 361 F1 SLDO 10 
156 234 9C UNI 199 307 C7 LICI 242 362 F2 SLDO 11 
157 235 9D 200 310 C8 LEQI 243 363 F3 SLDO 12 
158 236 9E CSP 201 311 C9 LESI 244 364 F4 SLDO 13 
159 237 9F  LDCN 202 312 CA LIL 245 365 F5 SLDO 14 
160 240 AO ADJ 203 313 CB NEQI 246 366 F6 SLDO 15 
161 241 A1 FJP 204 314 CC STL 247 367 F7 SLDO 16 
162 242 A2 INC 205 315 CD CXP 248 370 F8 SIND O 
163 243 A3 IND 206 316 CE CLP 249 371 F9 SIND 1 
164 244 AH IXA 207 317 CF CGP 250 372 FA SIND 2 
165 245 A5 LAO 208 320 DO LPA 251 373 FB SIND 3 
166 246 A6 LSA 209 321 D1 252 374 FC SIND 4 
167 247 A7 210 322 D2 253 275 FD SINDS5 
168 250 AË MOV 211323 D3 EJ 254 376 FE SIND € 
166 251 A9 LDO 212 324 DH NFJ 255 277 FF SIND 7 
179 252 AA SAS 213 325 D5 BPT 
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Pour mieux choisir 
“votre” ordinateur 
et pour mieux l'utiliser. 


LR 1 
<a Ed Na 
On ar 
démaine 


= 












eutomatisez 
vos lettres de relance 


l'ardoise magique 
banc d'essai: Kontron PSI-80 FAN mes. 
D vog 
; NT 
5  — 


TLORDINATEUR 


INDIVIDUEL 


Vous y trouverez : 


L'actualité et les tendances de l'informatique individuelle + des galops et des bancs 

d'essai des principaux matériels < des panoramas et des tests comparatifs + le point 

des grandes manifestations internationales + des articles d'initiation + des synthèses 

+ des programmes + des interviews “exemplaires” + des conseils + des idées 
e des astuces. 


{ L'ORDINATEUR 
INDIVIDUEL 
chez votre marchand de journaux 


41 rue de la Grange aux Belles - 75010 Paris 


pratique 





Un programme 
de gestion de données 





Au fait, dans quel numéro se trouvait donc cet 
article qui parle des méthodes de tri ? Voilà une 
question que vous ne vous poserez plus si vous 
possédez une disquette et si vous documentez 
régulièrement votre fichier des articles, à l'aide 
du programme ci-dessous. 


Evidemment, rien ne vous empêche (au contraire !) de 
trouver beaucoup d'autres utilisations à ce prog- 
ramme, en lui apportant quelques adaptations suivant 
votre domaine d'application: gestion d'un catalogue 
quelconque, gestion de toute forme de référence 
bibliographique, etc. 


Nous vous proposons de commencer DES AUJOURD'HUI 
avec le numéro 1 de cette revue, en vous aidant 
de la liste des mots-clés donnée en dernière 
page. 


Organisation du fichier des articles 


Si une simple liste des articles regroupés par 
mots-clés vous suffit, le programme se réduit aux 
instructions 10-890 et 2620-3240. 


Pour utiliser au mieux l'espace disque, nous avons 
prévu 2 enregistrements logiques de 128 octets sur 
chaque enregistrement physique (256 octets), ce qui 
complique sensiblement la programmation. 


Les zones des enregistrements sont ici définies 
(dans FIELD#) comme des éléments de table de 
dimension 2 (ex : NOM$(1) et NOM$(2)). 
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NOMS(H  nece#(1,4) Noh$(2) mcreg(2,1) 
4 PS PRESSE TPE TETE 


pre 





















méthode 
de. Mc 





TRI |BASIC 


<— 4 enregistrement —> 
log ique de 128 octets 


fichier des 
arhcles 


Fichier 
des listes 
inverses 


Ces zones pourraient aussi être définies comme de 
simples variables en exécutant l'instruction FIELD 
avant chaque accès disque, les variables étant 
positionnées sur la première ou la seconde moitié 
de l'enregistrement physique de 256 octets, mais 
j'ai préféré la solution exposée ici. 


Recherche par mots-clés 


La recherche par mot-clé en "balayant" 
séquentiellement le fichier des articles ne 
pourrait pas s'effectuer en moins d'une minute 
pour un fichier de 400 articles et avec une 
méthode classique. 


Nous avons donc associé au fichier des articles 

de la liste des mots-clés telle qu'elle est donnée 
à la page 5. Vous pourrez ainsi vous constituer pro- 
gressivement et sans effort une petite banque de 
données bibliographiques qui sera toujours à jour. 


Utilisation pratique 


Le moyen le plus efficace sera d'utiliser le 
programme ... mais voici quelques renseignements 





complémentaires. Les articles sont entrés-en 
sélectionnant la commande C (création). Le nom de 
l'æticle, celui de la revue, le numéro de page 
Sont successivement introduits. On associe alors à 
chaque article de un à quatre mots-clés significa- 
tifs, par exemple : BASIC, JEUX, TECHNIQUE ets 


Pour sauter à l'étape suivante, il vous suffit de 
taper sur la touche "Enter". 


La recherche d'un article peut s'effectuer selon 
différents moyens : 


— recherche connaissant une clé (commande RCLE). 


CLS:PRINT “ART/BAS 31.10.81":PRINT 
CLEAR (3000) 

É GESTION D'ARTICLES 

: 2 ARTICLES P8R ENREGISTREMENT DE 
resistrements: soit : ?00+#? = 400 arti 
Û 70 MOTS-CLES differents 


NMCLES=4 


Nombre de MOTS CLES par articl 







plusieurs) mo 
articles pañlant 
- recherche résulta 
deux (ou plusieurs) mo 
Exemple 





: articles traitant de JEUX et de BASIC. 


Le fichier peut être listé sur 
LF) ou sur l'imprimante (LFT). 





7 





| | 


SUR 


Il est évidemment possible de supprimer un article 
(devenu désuet ou erroné) par la commande SU. Dans 
ce cas là, de même qu'à la suite d'une destruction 
accidentelle de l'index, il est nécessaire 
d'employer la commande CRI (création liste inverse). 
Enfin, pour quitter le programme, on utilise la 
commande FIN, qui devient obligatoire en cas de 
création. 


Te Jacques Boisgontier 


limite a °00 en 


me 


icle 
COM$(1)="MOT-CLE1":COMS(2)="MOT-CLE2”: COMS(3)="MOT-CLE3": COMSC4)="MOT-CLE4 


DIM PT$(120):CLE#$(70) 


DIM T#(2170) 
DIM X%(200) 
DIM TCLE$(400):I1X#(400) 


OPEN “R":#1: "ART" ; 
FOR J=1 TO 7 
FIELD Dé:95 AS 


#1:128#(J-1) AS 
(J) _ 


FOR I=i TO NMCLES:FIELD #1:178*(J-1) AS 


17 AS MCLES(J?I):NEXT I 
NEXT J 


AS NM$(J)2:3 AS PG# 


if 
I 
12 
L 
(al 
Len 
+ 


$r:(1-1)#12 AS DS: 
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OPEN "R"#2:"IART" 
FOR 1=1 TO 120 :FIELD 


Fichier list 


Bs SB5 
#7:12 8S PX$:CI1-1)47AS D$:2 ÀS PTSCI):NEXT I 


= = 0e 400 00e me me me me me me mm ee ee SSSR EEE RE — 


GOSUR 1140 
CLS:PRINT * 


âprel 
GESTION D'ARTICLES":PRIAT 


lecture mots-cles 


PRINT TAB(10) °C : CREATION 

PRINT TAB(10) "RCLE : RECHERCHE PAR CLE 

PRINT TAB(10) “ET : RECHERCHE ‘ET 

PRINT TAB(10) “OU RECHERCHE ‘QU 

PRINT TAB(10) : CREATION LISTE INVERSE" 

PRINT TAB(10) °LF : LISTE DU FICHIER (ECRAN)° 

PRINT TAB(10) "Su : SUPPRESSION ARTICLE” 

PRINT TAB(10) : LISTE TRIEE FICHIER (IMPRIMANTE)? 
PRINT TAB(10) (OBLIGATOIRE SI CREATION) 

PRINT TAB(10) MC BFFICHAGE MOTS-CLES (ECRAN)" 


7 
Hi 
A 


PRINT :INPUT "MODET (C:3CRI:RCLE:LF:FINr..)"5:MODES 
IF MODES="C" THEN GOSUR 510 ‘Creation 

IF MODES="CRI" THEN GCOSUB 740 ‘Creation liste inverse 

IF MODES#="RCLE" THEN GOSUB 1250 ’Fecherche Four un MOT-CLE 
IF MODES="ET" THEN GCOSUR 1940 ‘Hode ET 

IF MODES="QOU" THEN COSUE 5070 

IF MODES#="LF" THEN GOSUE 3440 

IF MODES="SU" THEN GOSUE 2750 

IF MODES="LFT" THEN COSUE 3000 

IF MODES="MC" THEN GOSUR 1140 


IF MODES#="FIN" THEN CLOSE #1:#2:CMD °S° TERMINE 

GOTO 240 

: CREATION(C) 
PRINT:PRINT:ILINE INPUT °LIBELLE ARTICLE 7 "sX#:1F X$="" THEN RETURN 


NE=LOF(1):IF NE=0 THEN NE=1 

*-- recherche position libre 

GET H1:NE:FOR I=1 TO % 
IF-ASC(INOMS(I))=0 THEN PST=I:G0TCO 57 

NEXT I 

NE=LOF(1)+1:PST=IICGET #Î:NE 

LSET NOMS (PST)=XS 


LINE INPUT "NOM REVUE 7 “SXSIIF X$<>"" THEN LSET RVS(PST)=XS$ 


LINE INPUT "NUMERO 7 “sXSIIF X$<>"" THEN LSET NMS(PST)=X$ 
LINE INPUT “PAGE 7 SXS:IF X$<>"" THEN LSET PGS#(PST)=XS# 
PRINT 


FOR K=1 TO NMCLES 
Y$="":PRINT COMS(K)5:: INPUT YS$ 
IF Y$<>"”" THEN LSET MCLES(PST:K)=Y$ 


NEXT K . 

R$&="":PRINT:INPUT “OK (OZN) ":RS:IF R$<>"0° THEN Sin 
PUT#12NE 

GOSUB 920 ârrel MâJ listes inverses 
GOTO 510 
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É CONSTITUTION LISTE INVERSE(CRI) 
CLOSE#2:KILL “IART':OPEN "R':#2:"IART" 
EOR)1=1, F0,70:CLES(CI)=""=:NEXTOI:NE-D 
FOR NE=1 TO LOF (1) 
PST=1:GCOSUR 920 


PST=2:COSUR 9%0 - " Arrel MAJ listes invercses 
NEXT NE 
CLOSE #2:O0PEN "R':#7; "I8RT" 


RETURN 


GET #12NE:IF ASC(NOMS(PST))=0 GOTO 1110 
PRINTEPRINT NESLEFTS(INOMS(PST) 1233": #: 


FOR V=1 TO NMCLES 
IF ASC(MCLES(PST:V))=0 GOTO 1100 
PRINT MCLES(PSTrV); 
FOR K=1 TO 70 * Fecherche MOT-CLE 
IF CLES(K)="" THEN CLES(K)=MCLES(PST:V):NE=NB+1:GOTO 1050 
IF MCLES(PSTzV)=CLE#(K) THEN GOTO 1050 
NEXT K 


3 


PRINT'AUGMENTEZ LA TAILLE DE CLES":STOP 


GET #2:K 
FOR I=1 TO 120 * Ajout d'un pointeur 
IF CVUI(PTS(I))=0 THEN LSET PTSCT)=MKISINE+1000#(PST-4)): 
LSET PX$=CLES{K):PUT #7:K:GOTO 1100 ‘ Painteur libre? 
NEXT I 
PRINT'Y'A PLUS ASSEZ DE PLACE POUR LES POINTEURS'"':STOP 
NEXT V 


ù CONSTITUTIGON.DE 
NE=0 * NBinonmbre de c 
CLS:PRINT “MOTS-CLE:":PRINT 
FOR I=1 TO LOF (27) 

GET HZ:I1:IF ASC(PX#)=0 GOTO 1700 

PRINT PX$::NE=NB+1:CLES(NE)=PXxS 

IF CI-S#INT(1/5))=0 THEN PRINT 


NEXT I 

PRINT:LINE INPUT "APPUYEZ SUR <ENTERD ":X$#:PRINT 

RETURN 

: INTERROGATION PAR MOT-CLE{RCLE) 


PRINT:X#="": INPUT "MOT-CLE CHERCHE “3 X$:1IF X$="" THEN RETURN 
FOR I=i TO NE . 
== Fr ÉEFTECCLES (I) »LENUXS) } THEN GOTO 1330 


3 


PRINT "CE MOT-CLE N'EXISTE PAS":PRINT : GOTO 1250 
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1330 GET #27I:PRINT 


1340 

1350 FOR K=1 TO 120 

1360 NE=CVI(PTS(K)):IF NE=Q0 THEN GOTO 1400 

1370 Q=INT(NE /1000):NE=NE-G+1000:PST=G+1 

1380 GET #12NE 

1390 PRINT NOMS(PST):RVS(PST):NM#(PST):" ":PG#(PST) 


1400 NEXT K 
1410 GOTO 1250 


1420 

1560 

1570 

1580 = 
1590 RECHERCHE POINTEURS POUR UN CRITERE 
1600 ‘ 

1610 PRINT :X$="":INPUT "AUTRE MOT-CLE CHERCHE "3X$:1IF X$="" THEN VLD=2:RETUR 
1620 CC$(P)=X$:P=P+1 

1630 ‘---- 

164D FOR I=1 TO NB 

1650 IF X$=LEFTS(CLES$(I)2LENCX#)) THEN 1700 

1660 NEXT I 

1670 

1680 PRINT "CE MOT-CLE N'EXISTE PAS": PRINT:VLD=2:RETURN:GOTO 1610 
1690 

1700 ‘ 

1710 GET #271 

1720 

1730 FOR K=1 TO 120 

1740 NE=CVI(PT#(K)):IF NE=0 THEN T#(V:K)=9999:GOT0 1780 

1750 THCV?KISNE 

1760 NEXT K 

4770 ‘---------- TRI DE TVS(V3) 

1780  INV=0 

1790 FOR I=1 TO K-1 

1800 IF THCVrIDDTR(VrI+1) THEN X=T#(V3 I): 


TÉCV:II=TÉCV3I+A) I TÉCVII+L)=XE INV=À 
1810 NEXT I 
1820 IF INV=1 THEN GOTO 1780 
1825 VLD=1:RETURN 


D 
1840 ‘ INTERSECTION DE 2? LISTES 

1850 I1=1:J=1:K=i 

1860 ‘ e resultat est range DANS T#{V:) 


99:RETURN 


ps 
1870 IF T#(V:1)=9999 THEN T£(V:2K)=99 
+1:G0T0 1870 
4:G 
K) 


1880 IF T£(VrI)ETE(WrJ1) THEN I=I 
1890 IF T&(VrI)ÈT#H(WrJ) THEN J=1+ 
1900 IF TÉ(VrI)=TE(WIJ) THEN TV: 
1910 STOP 

1920 lmmRS=S=SSSESZ=STSISSESSIESSTSSSESESSSTSTTIITSSSE= Ses eenmeemes=======— 
1930 ‘ RECHERCHE DU TYPE ‘ET 

1940 FOR I1=1 TO 5:CC$#(1)="":NEXT 1:P=1 

1950 - PRINT:XS$="":INPUT "PREMIER MOT CLE CHERCHE “3X$:1F X$="" THEN RETURN 
1960 CCS(P)=XS$S:P=P+1 

1970 V=1:GOSUR 164D0:0N VLD GOTOQ 1990:1980 * ârrel Premier MOT-CLE 

1980 RETURN 


OTO 1870 
STÉ(VaI)sI=1+151)=J+1:K=K+1:G0TO 1870 
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1990 V=2:GOSUB 1410:0N VLD GOTO ?010:7000 * ArPel second MOT-CIE 
2000 GOTO 1940 , 
2010 V=1i:W=27:GOSUR 1850 * APPrel intersection 


2020 OPS(P-2)="x ” 
2030 GOSUB 2500 


2040 GOTO 1990 * Arpel edition 
2050 messzzz=zs=ses=ssz==2=2=2=2222=z==z=====2===-2-mmmemem——— 
2060 ‘ RECHERCHE DU TYPE ‘ou 


2070 FOR I=1 TO S5:CC$#(I1)="":NEXT I:P=1 
2080 PRINT:INPUT "PREMIER MOT-CLE CHERCHE ":3X$:1F X$="" THEN RETURN 
2090 CCH(P)=X#:P=P+1 


2100 V=1:GOSUE 1640 :ON VLD GOTO 2170:?7110 * Arprel Premier MOT-CLE 
2110 RETURN 
2120 V=2:GOSUR 161D0:ON VLD GOTO ?140:7130 " ArPrel second MOT-CLE 
2130 GOTO 2070 
2140 V=1:W=2:CGOSUR 23460 ‘ Appel fusion 
2150 OP$S(P-2)="+ ” 
2160 GOSUR 2500 * Aprel edition 
2170 GOTO 2120 
2480 ---——— 
2190 ‘ 
2330. 
2340 ‘ 
2350 FUSION DE 3 LISTES 
2360 I=1:J=1:K=1 
2370 


2380 IF T#(Vr1)=9999 AND T#(W2J)=9999 THEN X%(K)=9999 :GOTO 2430 
2390 IF TH(VrI)<T#(Wr2J) THEN X#(K)=T#(VrI):I=1+1:K=K+1:GOTO 22380 
2400 IF TH(V2I)DT#(WrJ) THEN X#CK)=T#(WrJ):J=J+1:K=K+1:GOTO 2380 
2410 IF TH(V:I)=T#(WrJ) THEN XXCK)=T#(VrI)tl=l+1:J=J+1:K=K+1:GOTO 2380 
2420 

2430 FOR I=1 TO 200 

2440 IF X#(1)=9999 THEN TX(V:1)=X%(1):GOTO 2470 

2450 TY(VI1)=X# (I) 

2460 NEXT 1 

2470 RETURN 

248D 
2490 AFFICHAGE 

2500 PRINT:PRINT 

2510 FOR I=1 TO 5 


2520 IF CC$(1)><"" AND CC$(I1+1)><"" THEN 
PRINT CC$(I):30P$(1)::GOTO0 .2540 
2530 IF CC$(I1)><"" THEN PRINT CC$(I): 


2540 NEXT I 

2550 PRINT:PRINT 

2560 FOR K=1 TO 200 

2570 NE=T%(1:K):1F NE=9999 OR NE=0 THEN PRINT:RETURN ELSE G=INT(NE/1000):NE=N 
E-G*1000:PST=G+1 

2580 GET #1:NE:PRINT NESTAB(4)3LEFTS(NOMS(PST) 2:30) :RVS(PST):NMS(PST):PGS$(PST 
} 


2590 NEXT K 

2600 RETURN 

2010 - 

2620 lassse=e22ssszszsesesssesnmmm mm mm mm mm mm 
o:D: | LISTE DU FICHIER(LF) 

2640 PRINT:FOR I=1 TO LOF(1) 
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2850 GETERLAT 
2680 FOR PST=1 TO 2 
2870 IF ASC(NOMS(PST))=0 THEN 2690 
2880 PRINT IL:TAB(4)3LEFTS(NOMSCPST) 30) :MCLES(PST 31) :MCLES(PST:2) 
2890 NEXPEPSE 
2700 NEXT I 
2710 PRINTILINE INPUT "APPUYEZ SUR <ENTER> ":X$ 
2720 RETURN 
2730 lemmmes==========SSSSSESSSSSSSRSSEEEESSTSSSESESSSSSSSESRS========—=--= 
2740 ‘ MODE SUPPRESSION(SU) 
2750 PRINT:NE=0:INPUT "QUEL ENREGISTREMENT "3NE: 

IF NE=0 THEN PRINT: 

INPUT "PENSEZ A RECREER LES LISTES INVERSES. APPUYEZ SUR <ENTER> "3X$ 

:RETURN 
2760 INPUT "QUELLE POSITION (1 OU 3) “3PST 
2770 GET #1:NE 
2780 GET #17NE:PRINT NOMS#(PST)3::RS$="": INPUT ? ANNULE OK (CO/N) ":5R$: 
IF R$<>"0" THEN 2750 

2790 LSET NOM$S(PST)=CHRS#(O):PUT #Îi2NE 
2800 GOTO 2750 
2810 ln====2 een SSS=SSSSSSSSSSSSEESSSSRSSE=SESESSSTEES======--=- 
2820 
2830 
2970 
2980 LISTE TRIEE DU FICHIER 
2985 ‘ 
2990 ‘ 
3000 NCL=0 © NCL:NOMERE DE CLES 
3010 FOR NE=i TO LOF(1) 
3020 GET #1?NE 
3030 FOR PST=1 TO * 


… = = 


3040 IF ASC(NOMS(PST))=0 THEN 3080 
3050 FOR C=1i TO #4 
3060 IF ASC(MCLES(PST:C))<>0 THEN NCL=ENCL+1: 
TCLES$(NCL)=MCLES(PST:C)2IXSCNCL)=NE+PST#1000:PRINT TCLES(NCL) NE 
2PST 1e | 
3070 NEXT C 


3080 NEXT PST 

3090 NEXT NE 

LENS RSS TRI BUBBLE (A REMPLACER PAR QUICK SORT OÙ SHELL-METZNER) 

3105 PRINT:PRINT "JE TRIE ":PRINT 

3110 FOR I=1 TO NCL=1 

3120 FOR J=I1+1 TO NCL 

3130 IF TCLES(I)>TCLES(J) THEN XS$S=TCLES(I 
X=IXSCI)2IXECI)=IXR(J)SIX#(J) 


}ETCLES(I)=TCLES(J)E TCLES(J)=X$: 
=X 
3140 NEXT J 

3290 : NEXT: I 

Ur an IMPRESSIONS 

3170 LPRINTELPRINT "LISTE DES ARTICLES TRIES ":LPRINT 

3180 FOR I=1 TO NCL 

3190 IF TCLES(I)<>TCLES(I-1) THEN LPRINTILPRINT TCLE#(1)5" :° 
3200 Q=INT(IX#(I1)/1000) :=NE=IX#4(1)-6#1000:PST=8 

3210 GET #1?7NE 

3220 LPRINT TAB(S5) :NOMS$(PST):RUS(PST)3NMS(PST)S "PAGE: ":PGS(PST) 
3230 NEXT I 

3240 RETURN 
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= DOS de À à Z 


APPEND 
ATTRIB 
AUTO 





Le Modèle 1 possède plusieurs Systèmes d'Exploitation 
des Disquettes (SED, ou DOS en anglais). Ces diffé- 
rents systèmes ont béaucoup de points communs, 
particulièrement ceux de la "lignée" TRSDOS- 
NEWDOS-NEWDOS80-LDOS, qui s'inspirent tous, à 
quelques détails près, du TRSDOS de Tandy (version 
initiale 2.1). Nous publierons régulièrement sous 
forme de fiches pratiques, les commandes de ces 
différents DOS, classées alphabétiquement. Ces 
fiches ne prétendent pas remplacer les manuels 
originaux qu'il est impératif de posséder (il 
n'était pas envisageable de publier sous cette forme 
l'équivalent de plusieurs centaines de pages ...). 


Leur but est de fournir à l'utilisateur une 
information rapide d'accès (classement alphabétique), 
pratique (exemples d'utilisation), comparative 
(différents DOS) et dans une langue qu'il est censé 
connaître (français)... 


Les DOS les plus répandus ont été retenus pour 
constituer ces fiches. Ce sont le TRSDOS version 2.3 
dé Tandy, le NENDOS80 version 2 d'Apparat et le 

LDOS version 5.0 de Lobo Drives International. En 
règle générale, nous nous baserons sur les commandes 
du TRSDOS, en signalant les différences ou les 
apports rencontrés dans les autres systèmes 
d'exploitation. 


Conventions d'écriture 


Dans la description des commandes, les mots en 
caractères majuscules désignent les commandes 
proprement dites, ainsi que les mots-clés associés. 
Les mots ên caractères minuscules ne font pas partie 
des commandes mais en représentent la forme. Au 
moment de l'exécution, il faudra leur substituer 

le ou les mots appropriés. Parmi ceux-ci, nous 
trouverons par exemple “nomfich", qui désigne 

un nom de fichier, “motpasse" qui signifie qu'un 
mot de passe (password) est attendu à cet endroit. 
Dans tous les cas, un coup d'oeil sur les exemples 
donnés devrait lever toute ambiguité. 

Enfin, il faut signaler que le NEWDOS80 emploie 
indifféremment la virgule ou l'espace comme 
séparateur dans les commandes. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 





APPEND nomfich2 TO nomfich 1 










But : Les deux fichiers nomfich 1 et nomfi 
existant indépendamment sur le disque sous 
ASCII, à l'exécution de la commande, le conte 

de nomfich 2 sera ajouté à la fin de nomfich 1 pour 
ne former qu'un seul fichier nomfich1. Nota 
nomfich2 n'est pas détruit. 


Exemple TRSDOS 
Exemple NEWDOS80 : 


APPEND SUIT/BAS TO TETE/BAS 
APPEND, DATA2/TXT,DATA1/TXT 


(dans ce dernier cas, le "TO" est facultatif). 
LDOS conserve la syntaxe de TRSDOS, mais il est 
possible de substituer à nomfich2 un organe 
physique d'entrée produisant du code ASCII, par 


exemple le clavier) 
APPEND *KI TO INFO 


Les caractères entrés au clavier seront placés sur 
le disque, à la suite du fichier INFO, jusqu'à 
l'appui sur la touche BREAK. 


ATTRIB nomfich (liste d'attributs) 


: I invisibilité 
ACC=motpasse d'accès 
UPD=motpasse mise à jour 
PROT=niveau protection 


attributs 


: KILL (faible) 
RENAME 
WRITE 
READ 
EXEC (fort) 


niveaux protection 





But : donner à un fichier sur disque, un attribut 
d'invisibilité ou de protection. Lorsqu'un fichier 
est rendu invisible, il n ‘apparaît plus lors d'une 
commande DIRectory, sauf si le paramètre I est 
spécifié dans celle-ci. Lorsqu'un fichier possède 
un attribut de protection, il est nécessaire à 
l'utilisateur de fournir un mot de passe pour 
accéder à certaines opérations (mot de passe 
d'accès) déterminées par le niveau de protection. 
Un second mot de passe (mise à jour) permet au 
fournisseur du programme d'user de toutes les com- 
mandes sur ce fichier. 


Exemple 
ATTRIB COFFRE (ACC=CLIC, UPD=HUM, PROT=WRITE) 


Pour accéder à ce fichier, l'utilisateur devra 
désormais employer le nom COFFRE.CLIC, ce ne lui 
donnera seulement le droit d'exécuter (EXEC) , 

lire (READ) ou d'écrire (WRITE). Par contre, nom 
COFFRE.HUM permet d'exécuter toute autre opération 
(ici, renommer ou détruire un fichier). 


- En TRSDOS, un fichier rendu invisible ne peut plus 
retourner à l'état visible comme cela est possible 
sur LDOS et NEWDOS80. De plus, le niveau de protec- 
tion EXEC ne s'applique qu'aux programmes binaires 
(nomfich/CMD), car en BASIC, aucune opération n'est 
possible sur un fichier ainsi protégé. 


— Pour NEWNDOS80, la touche BREAK est inhibée dans 
le cas de EXEC, et le fichier ne peut qu'être lancé 
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RUN. De plus, ce DOS apporte quatre 
buts supplémentaires : VIS (pour rendre un 

f er visible, INV pour le rendre invisible), 
BSE=, ASC= et UDF. Ces trois derniers attributs 

ne peuvent recevoir que les valeurs Y (oui) ou N 
(non). Pour ASE=Y, le DOS accepte d'étendre la 
taille du fichier lorsque cela s'avère nécessaire. 
Inversement, pour ASC=Y, la taille peut être 
compressée. Si UDF=Y, un indicateur de mise à jour 
apparaîtra dans la directory, pour toute modifica- 
tion du fichier. Nous trouvons également deux 
niveaux de protection supplémentaires : LOCK (aucun 
accès n'est autorisé, excepté par le DOS lui-même), 
et FULL (toutes opérations autorisées). 

Exemples 


ATTRIB, PENDU/BAS, UPD-CLIC, ACC=CORDE, PROT-EXEC 

ATTRIB TOTO.TITI INV UDF=N 
- En LDOS, un fichier ayant le niveau de protection 
EXEC ne peut qu'être lancé par la commande RUN. 
Après exécution, le programme est automatiquement 
effacé de la mémoire. Un BREAK provoque également 
un effacement de la mémoire. LDOS apporte un 
attribut de VISibilité, et un niveau supplémentaire 
de protection FULL (ou ALL) identique à celui de 
NEWDOS80. LDOS permettant l'abréviation des para- 
mètres aux deux premiers caractères, ceci crée un 
problème pour REname et REad : aussi, le niveau 
de protection RENAME s'appelle ici NAME. Les 
attributs peuvent être réduits à une seule lettre 
(I, V, P, U, A) et les niveaux d'accès à deux 
lettres (FU (ou AL), EX, RE (read), WR, NA et KI). 


le prochain numéro 


sera disponible 
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pour 
mieux utiliser votre ordinateur 


Exemple 
ATTRIB COMPTE.MOI (PROT=RE, V) 


AUTO commande-dos 


I 

| 

| 

| 

| 

| 

| 

| 

| 

| 

But : cette commande permet d'écrire dans un espace | 
réservé du catalogue (32 caractères max), l'ordre 

DOS qui devra être exécuté à l'initialisation du | 

système. Lorsqu'AUTO est employé seul (c'est-à-dire | 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


abonnez-vous 


ou commandez le prochain numéro 
en utilisant le bon ci-dessous 


non suivi d'une commande), cet ordre est effacé, et 
ceci supprime l'exécution automatique. 
Exemples 

AUTO BASIC 
provoquera l'appel automatique du BASIC à la mise 
sous tension. 
Lorsque la touche ENTER est maintenue pressée au 
moment du "reset" ou de la mise sous tension, 
l'ordre AUTO est ignoré. 
- Avec LDOS, on peut faire précéder la commande DOS 
du symbole "*#" : AUTO *DIR, par exemple. Dans ce cas 


BON DE COMMANDE | 
à retourner à TRACE, 8, rue St-Marc, 
| 75002 PARIS 
| 








l'appui sur la touche ENTER n'aura aucun effet. De 
plus, la touche BREAK est inhibée en BASIC. Sous 
NEWDOS80, une option système permet d'obtenir le même 
effet (voir SYSTEM). Ceci permet donc d'avoir des | Nom : 
systèmes sur mesure et "verrouillés". | 
En LDOS ou NEWDOS80, il est même possible d'exécuter | Profession : 
une série d'ordres par l'intermédiaire de la 5 
commande CHAIN (ou DO) | Ad 
AUTO CHAIN INIT | 10998 
INIT étant le nom d'un fichier de commandes. | Code postal : Ville : 
On peut également appeler directement un programme NET Er : à 
BASIC | Pays : 





AUTO BASIC 4,60000 , RUN'"'MENU/BAS 
Dans cet exemple, les événements suivants sont 


exécutés eà sé O Je désire recevoir le  [] Je désire m’abon- 


Lancement. du. BASSE En Que numéro 2 de TRACE ner à TRACE pour 1 
. Réservation de 4 "buffers'" permettant d'ouvrir Re _ Eee per eee Ar 
simultanément 4 fichiers (réponse à "HOW MANY 4 
FILES?" en TRSDOS). the R ; Canada 6.50$; (France 75 FF ; Bel- 
. Fixation d'une zone protégée à partir de l'adresse Étranger 30 FF). gique 500 FB; 


60000 (réponse à "MEMORY SIZE" ou ‘MEM SIZE"). 
. Lancement du programme BASIC "MENU/BAS". 
Pour annuler cet enchainement automatique, il 
suffit de frapper au niveau DOS : 

AUTO 


Da armee rar ur fire ro nn oo 


Suisse 33FS; 
Canada 20 $ ; Étran- 


| 
| 
| Suisse 11FS; tarif de lancement 
| 
| ger 90 FF). 
| 


TR 12 
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Dossier n° 17 : expert-comptable 


Avec 250 clients, 
j'étais un expert comptable affichant complet” 
Le micro-ordinateur TRS-80 
m'a permis de tripler ma clientèle” 


FE. _. . 








«Etre obligé dans mon 
activité de plafonner avec 250 
clients n'est certes pas stimu- 
lant.. toute volonté de déve- 
loppement était stérile. La 
comptabilité amène un flot 

“d'obligations, de problèmes 
spécifiques. Les résoudre 
manuellement est pratique- 
ment irréalisable. Ün nouveau 
système était indispensable. 
Je l'ai trouvé grâce au TRS-80 
de Tandy». 


Tandy apporta à cet 
expert comptable la solution 
qui s’imposait. Un micro-ordi- 
nateur destiné à tous les actes 
administratifs et comptables. 
En outre l'édition des états 
financiers, le stockage des 
comptes à recevoir, le calcul 
des factures et salaires, la 
mémorisation des fiches 
clients et les lettres commer- 
ciales. 


C’est un outil d'utilisation 
simple, parfaitement adapté 
à toutes activités personnel- 
les ou professionnelles. 

Tandy est le leader du mar- 
ché de la micro-informatique. 
Nos TRS-80 forment la gamme la plus performante des micro-ordinateurs. 
Ils sont rapides, fiables, et d’un prix accessible. 

… Nous mettons à votre disposition un réseau de distribution qui s'étend de 
jour en jour, «couplé» à une organisation mondialement reconnue. 

TRS-80, une gamme de micro-ordinateurs à partir de 4.990F 
TVA de 17,60% incluse. Avec un large éventail de logiciels. 


ke 
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I faut se rendre à l'évidence. Les lecteurs de cassettes 
ont été conçus pour enregistrer ni des données digita- 
les, ni des programmes. C’est la raison pour laquelle 
EXATRON a développé un système de stockage magné- 
tique, qui utilise une bande sans fin: l'Exatron Stringy 
Floppy (ESF). Entièrement autonome, ne nécessitant 
l'achat d'aucun interface, ESF est une alternative extré- 
mement rapide, fiable et économique entre les cassettes 
et les mini-disquettes. Toutes ses fonctions sont sous le 
contrôle total de votre micro-ordinateur. Aucun bouton, 
poussoir, inverseur ou levier à ajuster ou à oublier. ESF 
utilise une cartouche magnétique miniature de la taille 
approximative d’une carte de crédit, appelée un Wafer (voir 
illustration ci-dessous), dont la capacité peut dépasser 100 Ko. 
Son mécanisme de transport utilise un moteur à couplage direct, 
avec une seule pièce en mouvement. Plusieurs versions de l'ESF 
sont actuellement disponibles, pour le TRS-80®, l'Apple II®, et les 
ordinateurs munis d’une liaison RS-232. Même la plus lente de ces 
versions est 15 fois plus rapide que les cassettes et aussi fiable que les 
disques — en fait, nombre d'utilisateurs affirment qu’elle est encore plus fiable! 
Un manuel très explicite accompagne ce matériel garanti un an. 
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